debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 04:18:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: notmuch-fontify-headers: Remove unneeded progn and indent correctly.

Browse source 
The defun special form doesn't require a progn. And the remainder
of the function was previously indented in a misleading way, (as
if each "if" was always evaluated, rather than each only being
evaluated if all the previous evaluated to nil).
This commit is contained in:
Carl Worth 2009-12-03 10:39:33 -08:00
parent fcc36df1fa
commit a0439ded70
1 changed files with 23 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
notmuch.el
View file

@ -697,7 +697,6 @@ which this thread was originally shown."
))) )))
(defun notmuch-fontify-headers () (defun notmuch-fontify-headers ()
(progn
(while (looking-at "[[:space:]]") (while (looking-at "[[:space:]]")
(forward-char)) (forward-char))
(if (looking-at "[Tt]o:") (if (looking-at "[Tt]o:")
@ -723,7 +722,7 @@ which this thread was originally shown."
(overlay-put (make-overlay (point) (re-search-forward ":")) (overlay-put (make-overlay (point) (re-search-forward ":"))
'face 'message-header-name) 'face 'message-header-name)
(overlay-put (make-overlay (point) (re-search-forward ".*$")) (overlay-put (make-overlay (point) (re-search-forward ".*$"))
'face 'message-header-other)))))))) 'face 'message-header-other)))))))
(defun notmuch-show-markup-header (depth) (defun notmuch-show-markup-header (depth)
(re-search-forward notmuch-show-header-begin-regexp) (re-search-forward notmuch-show-header-begin-regexp)