Mercurial > emacs

comparison lisp/mail/rmailkwd.el @ 91204:53108e6cea98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))