Mercurial > emacs
comparison lisp/mail/rmailkwd.el @ 91204:53108e6cea98
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 06 Dec 2007 09:51:45 +0000 |
parents | f55f9811f5d7 2c08ad76fc1f |
children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
91203:db40129142b2 | 91204:53108e6cea98 |
---|---|
83 nil | 83 nil |
84 nil))) | 84 nil))) |
85 (if (string= result "") | 85 (if (string= result "") |
86 rmail-last-label | 86 rmail-last-label |
87 (setq rmail-last-label (rmail-make-label result t)))))) | 87 (setq rmail-last-label (rmail-make-label result t)))))) |
88 | |
89 (declare-function rmail-maybe-set-message-counters "rmail" ()) | |
90 (declare-function rmail-display-labels "rmail" ()) | |
91 (declare-function rmail-msgbeg "rmail" (n)) | |
92 (declare-function rmail-set-message-deleted-p "rmail" (n state)) | |
93 (declare-function rmail-message-labels-p "rmail" (msg labels)) | |
94 (declare-function rmail-show-message "rmail" (&optional n no-summary)) | |
95 (declare-function mail-comma-list-regexp "mail-utils" (labels)) | |
96 (declare-function mail-parse-comma-list "mail-utils.el" ()) | |
88 | 97 |
89 (defun rmail-set-label (l state &optional n) | 98 (defun rmail-set-label (l state &optional n) |
90 (with-current-buffer rmail-buffer | 99 (with-current-buffer rmail-buffer |
91 (rmail-maybe-set-message-counters) | 100 (rmail-maybe-set-message-counters) |
92 (if (not n) (setq n rmail-current-message)) | 101 (if (not n) (setq n rmail-current-message)) |