mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-19 10:22:27 +00:00
Code Issues Releases Activity

(rmail-set-label): Delete the keyword header if all labels are

Browse Source 
removed.  (Bug#2302)
This commit is contained in:
Glenn Morris 2009-02-13 03:44:30 +00:00
parent 56ba440162
commit a99e0e1be2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mail/rmailkwd.el
View File

@ -127,7 +127,9 @@ LABEL may be a symbol or string."
(min (length header)
(- (match-end 0) 1)))))
(cond ((string= before "")
after)
;; If before and after both empty, delete the header.
(unless (string= after "")
after))
((string= after "")
before)
(t (concat before ", " after))))))))))