From a99e0e1be2c5e33011683b5577d085f8282dcc0a Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Fri, 13 Feb 2009 03:44:30 +0000
Subject: [PATCH] (rmail-set-label): Delete the keyword header if all labels
 are removed.  (Bug#2302)

---
 lisp/mail/rmailkwd.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))))))))))
-- 
2.39.5