alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* minor

Browse Source
This commit is contained in:
djcb
2012-06-26 22:49:34 +03:00
parent 7816436b2a
commit 006f1ece1f
3 changed files with 13 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
emacs/mu4e-headers.el
View File

@ -359,7 +359,6 @@ after the end of the search results."
(defvar mu4e-headers-mode-map nil (defvar mu4e-headers-mode-map nil
"Keymap for *mu4e-headers* buffers.") "Keymap for *mu4e-headers* buffers.")
(unless mu4e-headers-mode-map (unless mu4e-headers-mode-map
(setq mu4e-headers-mode-map (setq mu4e-headers-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
@ -525,8 +524,6 @@ after the end of the search results."
(mu4e~mark-initialize) ;; initialize the marking subsystem (mu4e~mark-initialize) ;; initialize the marking subsystem
(hl-line-mode 1) (hl-line-mode 1)
(setq header-line-format (setq header-line-format
(cons (cons
(make-string (make-string

2
emacs/mu4e-mark.el
View File

@ -75,7 +75,7 @@ where
(defun mu4e~mark-initialize () (defun mu4e~mark-initialize ()
"Initialize the marks subsystem." "Initialize the marks subsystem."
(make-local-variable 'mu4e~mark-map) (make-local-variable 'mu4e~mark-map)
(setq mu4e~mark-map (make-hash-table :size 16 :rehash-size 2))) (setq mu4e~mark-map (make-hash-table :size 16)))
(defun mu4e~mark-clear () (defun mu4e~mark-clear ()
"Clear the marks subsystem." "Clear the marks subsystem."

5
emacs/mu4e-view.el
View File

@ -225,7 +225,6 @@ marking if it still had that."
(mu4e~view-fontify-cited) (mu4e~view-fontify-cited)
(mu4e~view-fontify-footer) (mu4e~view-fontify-footer)
(mu4e~view-make-urls-clickable) (mu4e~view-make-urls-clickable)
(mu4e~view-show-images-maybe msg) (mu4e~view-show-images-maybe msg)
(unless refresh (unless refresh
@ -296,7 +295,7 @@ is nil, and otherwise open it."
(:index 2 :name \"test456.pdf\" (:index 2 :name \"test456.pdf\"
:mime-type \"application/pdf\" :attachment t :size 12234))." :mime-type \"application/pdf\" :attachment t :size 12234))."
(setq mu4e~view-attach-map ;; buffer local (setq mu4e~view-attach-map ;; buffer local
(make-hash-table :size 16 :rehash-size 2 :weakness nil)) (make-hash-table :size 64 :weakness nil))
(let* ((id 0) (let* ((id 0)
(attachments (attachments
;; we only list parts that look like attachments, ie. that have a ;; we only list parts that look like attachments, ie. that have a
@ -621,7 +620,7 @@ number them so they can be opened using `mu4e-view-go-to-url'."
(let ((num 0)) (let ((num 0))
(save-excursion (save-excursion
(setq mu4e~view-link-map ;; buffer local (setq mu4e~view-link-map ;; buffer local
(make-hash-table :size 32 :rehash-size 2 :weakness nil)) (make-hash-table :size 32 :weakness nil))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward mu4e~view-url-regexp nil t) (while (re-search-forward mu4e~view-url-regexp nil t)
(let ((url (match-string 0)) (let ((url (match-string 0))