# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1234496670 0
# Node ID 1c4889d6931210ccd1ec408db848197fcb8892a1
# Parent  0f2fdeca8ec1da9e93fb9efb28c7fd15882d4efe
(rmail-set-label): Delete the keyword header if all labels are
removed.  (Bug#2302)

diff -r 0f2fdeca8ec1 -r 1c4889d69312 lisp/mail/rmailkwd.el
--- 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))))))))))