Mercurial > emacs
changeset 101989:1c4889d69312
(rmail-set-label): Delete the keyword header if all labels are
removed. (Bug#2302)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 13 Feb 2009 03:44:30 +0000 |
| parents | 0f2fdeca8ec1 |
| children | aaaaf30ab036 |
| files | lisp/mail/rmailkwd.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailkwd.el Fri Feb 13 03:44:10 2009 +0000 +++ b/lisp/mail/rmailkwd.el Fri Feb 13 03:44:30 2009 +0000 @@ -127,7 +127,9 @@ (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))))))))))