Lines Matching +defs:last +defs:message
47 "*Non-nil means Rmail summary should show the number of lines in each message."
70 ;; using the same selection criterion as last time.
77 "Display a summary of all messages, one line per message."
87 (setq labels (or rmail-last-multi-labels
89 (setq rmail-last-multi-labels labels)
92 'rmail-message-labels-p
106 'rmail-message-recipients-p
112 If the regular expression is found in the header of the message
117 (setq regexp (or rmail-last-regexp
119 (setq rmail-last-regexp regexp)
122 'rmail-message-regexp-p
129 (defun rmail-summary-by-topic (subject &optional whole-message)
133 look in the whole message.
146 (list 'rmail-summary-by-topic subject whole-message)
147 'rmail-message-subject-p
148 (mail-comma-list-regexp subject) whole-message))
150 (defun rmail-message-subject-p (msg subject &optional whole-message)
156 (progn (search-forward (if whole-message "\^_" "\n\n")) (point)))
158 (if whole-message (re-search-forward subject nil t)
172 'rmail-message-senders-p
175 (defun rmail-message-senders-p (msg senders)
192 For each message, FUNCTION is applied to the message number and ARGS...
193 and if the result is non-nil, that message is included.
195 (message "Computing summary lines...")
208 (setq mesg rmail-current-message)
280 (message "Computing summary lines...done")))
291 (message "Computing summary lines...%d"
296 (if (rmail-message-deleted-p msg) ?\D
346 ;; If we didn't get a valid status line from the message,
347 ;; make a new one and put it in the message.
517 ;; It doesn't look nice to move forward past the last message line.
525 ;; It doesn't look nice to move forward past the last message line.
554 (defun rmail-summary-next-labeled-message (n labels)
555 "Show next message with LABELS. Defaults to last labels used.
561 (rmail-next-labeled-message n labels)
562 (setq msg rmail-current-message))
565 (defun rmail-summary-previous-labeled-message (n labels)
566 "Show previous message with LABELS. Defaults to last labels used.
572 (rmail-previous-labeled-message n labels)
573 (setq msg rmail-current-message))
577 "Go to the next message in the summary having the same subject.
585 i rmail-current-message))
618 (error "No %s message with same subject"
622 "Go to the previous message in the summary having the same subject.
632 "Delete this message and move to next nondeleted one.
643 (rmail-delete-message)
644 (setq del-msg rmail-current-message))
657 "Delete this message and move to previous nondeleted one.
690 "Undelete current message.
704 (and (rmail-message-deleted-p rmail-current-message)
705 (rmail-undelete-previous-message))
716 (let* ((init-msg (if n rmail-current-message rmail-total-messages))
717 (rmail-current-message init-msg)
720 (while (and (> rmail-current-message 0)
722 (if (rmail-message-deleted-p rmail-current-message)
725 (setq rmail-current-message (1- rmail-current-message)))
727 (setq rmail-current-message init-msg msgs-undeled 0)
728 (while (and (> rmail-current-message 0)
730 (if (rmail-summary-deleted-p rmail-current-message)
731 (progn (rmail-summary-mark-undeleted rmail-current-message)
733 (setq rmail-current-message (1- rmail-current-message))))
773 (make-local-variable 'rmail-current-message)
774 (setq rmail-current-message nil)
796 If it moves to a message within an Incremental Search, and removes
797 the `unseen' attribute from that message, it sets this flag
801 ;; Show in Rmail the message described by the summary line that point is on,
807 ;; If at end of buffer, pretend we are on the last text line.
822 (or (eq rmail-current-message msg-num)
828 ;; If we first saw the previous message in this search,
829 ;; and we have gone to a different message while searching,
833 rmail-current-message))
834 ;; Arrange to do that later, for the new current message,
837 (rmail-message-labels-p msg-num ", ?\\(unseen\\),")))
840 ;; Go to the desired message.
841 (setq rmail-current-message msg-num)
843 ;; Update the summary to show the message has been seen.
855 (rmail-show-message msg-num t))
860 (rmail-show-message msg-num t))))))
869 (define-key rmail-summary-mode-map [mouse-2] 'rmail-summary-mouse-goto-message)
875 (define-key rmail-summary-mode-map "e" 'rmail-summary-edit-current-message)
893 (define-key rmail-summary-mode-map "\e\C-n" 'rmail-summary-next-labeled-message)
898 (define-key rmail-summary-mode-map "\e\C-p" 'rmail-summary-previous-labeled-message)
909 (define-key rmail-summary-mode-map "." 'rmail-summary-beginning-of-message)
910 (define-key rmail-summary-mode-map "/" 'rmail-summary-end-of-message)
911 (define-key rmail-summary-mode-map "<" 'rmail-summary-first-message)
912 (define-key rmail-summary-mode-map ">" 'rmail-summary-last-message)
1047 (define-key rmail-summary-mode-map [menu-bar move last]
1048 '("Last" . rmail-summary-last-message))
1051 '("First" . rmail-summary-first-message))
1060 (defun rmail-summary-mouse-goto-message (event)
1061 "Select the message whose summary line you click on."
1067 "Go to message N in the summary buffer and the Rmail buffer.
1068 If N is nil, use the message corresponding to point in the summary
1069 and move to that message in the Rmail buffer.
1080 message-not-found
1085 ;; If message number N was specified, find that message's line
1086 ;; or set message-not-found.
1087 ;; If N wasn't specified or that message can't be found.
1092 (progn (message "No preceding message")
1096 (progn (message "No following message")
1101 (progn (or nowarn (message "Message %d not found" n))
1103 (setq message-not-found t)
1112 (rmail-summary-update-highlight message-not-found)
1119 (rmail-show-message n))
1133 ;; If this message is in the summary, use the overlay to highlight it.
1147 If the Rmail window is displaying the end of a message,
1148 advance to the next message."
1170 (rmail-summary-beginning-of-message)))))
1174 If the Rmail window is now displaying the beginning of a message,
1175 move to the previous message."
1196 (rmail-summary-beginning-of-message)))))
1198 (defun rmail-summary-beginning-of-message ()
1199 "Show current message from the beginning."
1201 (rmail-summary-show-message 'BEG))
1203 (defun rmail-summary-end-of-message ()
1204 "Show bottom of current message."
1206 (rmail-summary-show-message 'END))
1208 (defun rmail-summary-show-message (where)
1209 "Show current mail message.
1297 ;; Get the proper new message number.
1298 (setq msg rmail-current-message))
1299 ;; Make sure that message is displayed.
1310 (defun rmail-summary-first-message ()
1311 "Show first message in Rmail file from summary buffer."
1316 (defun rmail-summary-last-message ()
1317 "Show last message in Rmail file from summary buffer."
1331 (defun rmail-summary-edit-current-message ()
1332 "Edit the contents of this message."
1335 (rmail-edit-current-message)
1339 "Finish editing message, then go back to Rmail summary buffer."
1345 "Abort edit of current message; restore original contents.
1352 "Show message containing next match for REGEXP.
1355 Interactively, empty argument means use same regexp used last time."
1363 (if rmail-search-last-regexp
1365 rmail-search-last-regexp "): ")
1369 (setq rmail-search-last-regexp regexp))
1370 ((not rmail-search-last-regexp)
1372 (list rmail-search-last-regexp
1384 "Show message containing next match for REGEXP.
1387 Interactively, empty argument means use same regexp used last time."
1395 (if rmail-search-last-regexp
1397 rmail-search-last-regexp "): ")
1401 (setq rmail-search-last-regexp regexp))
1402 ((not rmail-search-last-regexp)
1404 (list rmail-search-last-regexp
1416 "Show original message header if pruned header currently shown, or vice versa."
1435 "Add LABEL to labels associated with current Rmail message.
1445 "Remove LABEL from labels associated with current Rmail message.
1465 While composing the message, use \\[mail-yank-original] to yank the
1466 original message into it."
1476 "Continue composing outgoing message previously being composed."
1485 "Reply to the current message.
1486 Normally include CC: to all other recipients of original message;
1488 use \\[mail-yank-original] to yank the original message into it."
1498 "Edit a mail message which is based on the contents of the current message.
1499 For a message rejected by the mail system, extract the interesting headers and
1500 the body of the original message; otherwise copy the current message."
1515 "Forward the current message to another user.
1516 With prefix argument, \"resend\" the message instead of forwarding it;
1528 "Resend current message using `rmail-resend'."
1541 "Append the current message to an Rmail file named FILE-NAME.
1543 If file is being visited, the message is appended to the Emacs
1559 rmail-current-message))))))
1570 "Append this message to Unix mail file named FILE-NAME.
1585 rmail-current-message))))))
1596 "Output current message to another Rmail file, chosen with a menu.
1628 "Write this message body to the file FILE-NAME.
1629 FILE-NAME defaults, interactively, from the Subject field of the message."
1674 "Sort messages of current Rmail summary by lines of the message.