[Emacs-diffs] emacs/lisp/mail rmailkwd.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/13 03:44:30

Modified files:
        lisp/mail      : rmailkwd.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailkwd.el?cvsroot=emacs&r1=1.39&r2=1.40

Patches:
Index: rmailkwd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailkwd.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- rmailkwd.el 12 Feb 2009 07:53:11 -0000      1.39
+++ rmailkwd.el 13 Feb 2009 03:44:30 -0000      1.40
@@ -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))))))))))