Lines Matching +defs:message +defs:goto +defs:keywords
47 "*Non-nil means Rmail summary should show the number of lines in each message."
51 (defvar rmail-summary-font-lock-keywords
77 "Display a summary of all messages, one line per message."
92 'rmail-message-labels-p
106 'rmail-message-recipients-p
112 If the regular expression is found in the header of the message
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)
152 (goto-char (rmail-msgbeg msg))
156 (progn (search-forward (if whole-message "\^_" "\n\n")) (point)))
157 (goto-char (point-min))
158 (if whole-message (re-search-forward subject nil t)
172 'rmail-message-senders-p
175 (defun rmail-message-senders-p (msg senders)
177 (goto-char (rmail-msgbeg msg))
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)
220 (goto-char (point-min))
247 (goto-char (point-min)))
278 (rmail-summary-goto-msg mesg t t)
280 (message "Computing summary lines...done")))
291 (message "Computing summary lines...%d"
296 (if (rmail-message-deleted-p msg) ?\D
310 (goto-char (rmail-msgbeg msg))
336 (goto-char (match-end 0))
346 ;; If we didn't get a valid status line from the message,
347 ;; make a new one and put it in the message.
351 (beg (if (progn (goto-char (rmail-msgbeg msg))
359 (goto-char beg)
361 (goto-char (rmail-msgbeg msg))
392 (goto-char (point-min))
457 (goto-char (point-min))
489 (goto-char beg)
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))
563 (rmail-summary-goto-msg msg)))
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))
574 (rmail-summary-goto-msg msg)))
577 "Go to the next message in the summary having the same subject.
585 i rmail-current-message))
607 (goto-char (rmail-msgbeg i))
612 (goto-char beg)
617 (rmail-summary-goto-msg found)
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.
641 (rmail-summary-goto-msg)
643 (rmail-delete-message)
644 (setq del-msg rmail-current-message))
657 "Delete this message and move to previous nondeleted one.
666 (and n (rmail-summary-goto-msg n t t))
684 (and n (rmail-summary-goto-msg n nil t))
690 "Undelete current message.
700 (rmail-summary-goto-msg)
704 (and (rmail-message-deleted-p rmail-current-message)
705 (rmail-undelete-previous-message))
709 (t (goto-char opoint))))))
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))))
734 (rmail-summary-goto-msg)))
773 (make-local-variable 'rmail-current-message)
774 (setq rmail-current-message nil)
779 (setq font-lock-defaults '(rmail-summary-font-lock-keywords t))
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,
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)
880 (define-key rmail-summary-mode-map "j" 'rmail-summary-goto-msg)
881 (define-key rmail-summary-mode-map "\C-m" 'rmail-summary-goto-msg)
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)
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."
1063 (goto-char (posn-point (event-end event)))
1064 (rmail-summary-goto-msg))
1066 (defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
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")
1097 (goto-char (point-max))
1098 (rmail-summary-goto-msg nil nowarn skip-rmail)))
1099 (goto-char (point-min))
1101 (progn (or nowarn (message "Message %d not found" n))
1103 (setq message-not-found t)
1104 (goto-char cur))))
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.
1224 (goto-char (point-min))
1227 (goto-char (point-max))
1297 ;; Get the proper new message number.
1298 (setq msg rmail-current-message))
1299 ;; Make sure that message is displayed.
1301 (rmail-summary-goto-msg msg))))
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.
1384 "Show message containing next match for REGEXP.
1416 "Show original message header if pruned header currently shown, or vice versa."
1430 (goto-char (point-min)))
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
1555 (progn (rmail-summary-goto-msg)
1559 rmail-current-message))))))
1570 "Append this message to Unix mail file named FILE-NAME.
1581 (progn (rmail-summary-goto-msg)
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.