* cosmetics

This commit is contained in:
djcb 2012-04-01 12:29:24 +03:00
parent c3ea59b7df
commit f11160aece
4 changed files with 14 additions and 23 deletions

View File

@ -33,17 +33,12 @@
(require 'mu4e-proc) (require 'mu4e-proc)
;;;; internal variables/constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; internal variables/constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar mu4e-last-expr nil (defvar mu4e-last-expr ni "*internal* The most recent search expression.")
"*internal* The most recent search expression.")
(defconst mu4e-hdrs-buffer-name "*mu4e-headers*" (defconst mu4e-hdrs-buffer-name "*mu4e-headers*"
"*internal* Name of the buffer for message headers.") "*internal* Name of the buffer for message headers.")
(defvar mu4e-hdrs-buffer nil "*internal* Buffer for message headers")
(defvar mu4e-hdrs-buffer nil (defconst mu4e-hdrs-fringe " " "*internal* The space on the left of
"*internal* Buffer for message headers") message headers to put marks.")
(defconst mu4e-hdrs-fringe " "
"*internal* The space on the left of message headers to put marks.")
(defun mu4e-hdrs-clear () (defun mu4e-hdrs-clear ()
"Clear the header buffer and related data structures." "Clear the header buffer and related data structures."
@ -389,7 +384,7 @@ after the end of the search results."
(if width (if width
(truncate-string-to-width field width 0 ?\s t) (truncate-string-to-width field width 0 ?\s t)
field) field)
'face 'mu4e-title-face) " "))) 'face 'mu4e-header-title-face) " ")))
mu4e-headers-fields)))) mu4e-headers-fields))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

View File

@ -1,10 +1,10 @@
;;; mu4e-main.el -- part of mm, the mu mail user agent ;;; mu4e-main.el -- part of mu4e, the mu mail user agent
;; ;;
;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema ;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
;; ;;
;; GNU Emacs is free software: you can redistribute it and/or modify ;; GNU Emacs is free software: you can redistribute it and/or modify
@ -26,8 +26,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst mu4e-main-buffer-name "*mu4e-main*" (defconst mu4e-main-buffer-name "*mu4e-main*"
"*internal* Name of the mm main buffer.") "*internal* Name of the mu4e main view buffer.")
(defvar mu4e-main-mode-map (defvar mu4e-main-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
@ -86,7 +85,7 @@ clicked."
newstr)) newstr))
(defun mu4e-main-view() (defun mu4e-main-view()
"Show the mm main view." "Show the mu4e main view."
(let ((buf (get-buffer-create mu4e-main-buffer-name)) (let ((buf (get-buffer-create mu4e-main-buffer-name))
(inhibit-read-only t)) (inhibit-read-only t))
(with-current-buffer buf (with-current-buffer buf

View File

@ -1,11 +1,9 @@
;; mu4e-send.el -- part of mm, the mu mail user agent ;; mu4e-send.el -- part of mu4e, the mu mail user agent for emacs
;; ;;
;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema ;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Keywords: email
;; Version: 0.0
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
;; ;;
@ -27,8 +25,6 @@
;; In this file, various functions to compose/send messages, piggybacking on ;; In this file, various functions to compose/send messages, piggybacking on
;; gnus' message mode ;; gnus' message mode
;; mm
;;; Code: ;;; Code:
(eval-when-compile (require 'cl)) (eval-when-compile (require 'cl))
@ -46,8 +42,8 @@
(defun mu4e-send-user-agent () (defun mu4e-send-user-agent ()
"Return the User-Agent string for mu4e. This is either the value "Return the User-Agent string for mu4e. This is either the value
of `mu4e-user-agent', or, if not set, a string based on the version of `mu4e-user-agent', or, if not set, a string based on the versions
of mm and emacs." of mu4e and emacs."
(or mu4e-user-agent (or mu4e-user-agent
(format "mu4e %s; emacs %s" mu4e-mu-version emacs-version))) (format "mu4e %s; emacs %s" mu4e-mu-version emacs-version)))

View File

@ -485,7 +485,8 @@ convert_to_utf8 (GMimePart *part, char *buffer)
/* of course, the charset specified may be incorrect... */ /* of course, the charset specified may be incorrect... */
if (charset) { if (charset) {
char *utf8 = mu_str_convert_to_utf8 (buffer, charset); char *utf8;
utf8 = mu_str_convert_to_utf8 (buffer, charset);
if (utf8) { if (utf8) {
g_free (buffer); g_free (buffer);
return utf8; return utf8;