From: Glenn Morris <rgm@gnu.org>
Date: Fri, 13 Feb 2009 03:44:30 +0000 (+0000)
Subject: (rmail-set-label): Delete the keyword header if all labels are
X-Git-Tag: emacs-pretest-23.0.91~252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a99e0e1be2c5e33011683b5577d085f8282dcc0a;p=emacs.git

(rmail-set-label): Delete the keyword header if all labels are
removed.  (Bug#2302)
---

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 687837ac56f..001249a222d 100644
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -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))))))))))