Mercurial > emacs
comparison lisp/mail/rmailkwd.el @ 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 | 9eff457d4b49 |
| children | 1bb96ade4801 |
comparison
equal
deleted
inserted
replaced
| 101988:0f2fdeca8ec1 | 101989:1c4889d69312 |
|---|---|
| 125 (max 0 (- (match-beginning 0) 2)))) | 125 (max 0 (- (match-beginning 0) 2)))) |
| 126 (after (substring header | 126 (after (substring header |
| 127 (min (length header) | 127 (min (length header) |
| 128 (- (match-end 0) 1))))) | 128 (- (match-end 0) 1))))) |
| 129 (cond ((string= before "") | 129 (cond ((string= before "") |
| 130 after) | 130 ;; If before and after both empty, delete the header. |
| 131 (unless (string= after "") | |
| 132 after)) | |
| 131 ((string= after "") | 133 ((string= after "") |
| 132 before) | 134 before) |
| 133 (t (concat before ", " after)))))))))) | 135 (t (concat before ", " after)))))))))) |
| 134 (if (rmail-summary-exists) | 136 (if (rmail-summary-exists) |
| 135 (rmail-select-summary (rmail-summary-update-line msg))) | 137 (rmail-select-summary (rmail-summary-update-line msg))) |