Lines Matching +defs:last +defs:message
31 (defvar rmail-current-message)
32 (defvar rmail-last-label)
33 (defvar rmail-last-multi-labels)
43 ;; Named list of symbols representing valid message attributes in RMAIL.
53 ;; Named list of symbols representing valid message keywords in RMAIL.
60 "Add LABEL to labels associated with current RMAIL message.
67 "Remove LABEL from labels associated with current RMAIL message.
78 (if rmail-last-label
80 (symbol-name rmail-last-label)
87 rmail-last-label
88 (setq rmail-last-label (rmail-make-label result t))))))
92 (rmail-maybe-set-message-counters)
93 (if (not n) (setq n rmail-current-message))
131 (rmail-set-message-deleted-p n state)))))
133 (if (= n rmail-current-message) (rmail-display-labels))))))))
137 ;; packages that do stuff with RMAIL. Note that rmail-message-labels-p
140 ;(defun rmail-message-label-p (label &optional n)
141 ; "Returns symbol if LABEL (attribute or keyword) on NTH or current message."
142 ; (rmail-message-labels-p (or n rmail-current-message) (regexp-quote label)))
144 ;(defun rmail-parse-message-labels (&optional n)
145 ; "Returns labels associated with NTH or current RMAIL message.
147 ;message attributes and the second is the message keywords."
151 ; (goto-char (rmail-msgbeg (or n rmail-current-message)))
191 (defun rmail-previous-labeled-message (n labels)
192 "Show previous message with one of the labels LABELS.
194 If LABELS is empty, the last set of labels specified is used.
197 (rmail-next-labeled-message (- n) labels))
200 (defun rmail-next-labeled-message (n labels)
201 "Show next message with one of the labels LABELS.
203 If LABELS is empty, the last set of labels specified is used.
207 (setq labels rmail-last-multi-labels))
211 (setq rmail-last-multi-labels labels)
212 (rmail-maybe-set-message-counters)
213 (let ((lastwin rmail-current-message)
214 (current rmail-current-message)
222 (if (rmail-message-labels-p current regexp)
226 (if (rmail-message-labels-p current regexp)
228 (rmail-show-message lastwin)
230 (message "No previous message with labels %s" labels))
232 (message "No following message with labels %s" labels))))