lisp/mail/rmail.el

54 (defvar tool-bar-map)
265 	  "\\|^x-mailer:\\|^delivered-to:\\|^lines:"
637 ;;; (UNIX From lines), minus the initial ^.  Note that if you change
1016   (define-key rmail-mode-map "\C-c\C-s\C-l" 'rmail-sort-by-lines)
1023 (define-key rmail-mode-map [menu-bar] (make-sparse-keymap))
1025 (define-key rmail-mode-map [menu-bar classify]
1028 (define-key rmail-mode-map [menu-bar classify input-menu]
1031 (define-key rmail-mode-map [menu-bar classify output-menu]
1034 (define-key rmail-mode-map [menu-bar classify output-body]
1037 (define-key rmail-mode-map [menu-bar classify output-inbox]
1040 (define-key rmail-mode-map [menu-bar classify output]
1043 (define-key rmail-mode-map [menu-bar classify kill-label]
1046 (define-key rmail-mode-map [menu-bar classify add-label]
1049 (define-key rmail-mode-map [menu-bar summary]
1052 (define-key rmail-mode-map [menu-bar summary senders]
1055 (define-key rmail-mode-map [menu-bar summary labels]
1058 (define-key rmail-mode-map [menu-bar summary recipients]
1061 (define-key rmail-mode-map [menu-bar summary topic]
1064 (define-key rmail-mode-map [menu-bar summary regexp]
1067 (define-key rmail-mode-map [menu-bar summary all]
1070 (define-key rmail-mode-map [menu-bar mail]
1073 (define-key rmail-mode-map [menu-bar mail rmail-get-new-mail]
1076 (define-key rmail-mode-map [menu-bar mail lambda]
1079 (define-key rmail-mode-map [menu-bar mail continue]
1082 (define-key rmail-mode-map [menu-bar mail resend]
1085 (define-key rmail-mode-map [menu-bar mail forward]
1088 (define-key rmail-mode-map [menu-bar mail retry]
1091 (define-key rmail-mode-map [menu-bar mail reply]
1094 (define-key rmail-mode-map [menu-bar mail mail]
1097 (define-key rmail-mode-map [menu-bar delete]
1100 (define-key rmail-mode-map [menu-bar delete expunge/save]
1103 (define-key rmail-mode-map [menu-bar delete expunge]
1106 (define-key rmail-mode-map [menu-bar delete undelete]
1109 (define-key rmail-mode-map [menu-bar delete delete]
1112 (define-key rmail-mode-map [menu-bar move]
1115 (define-key rmail-mode-map [menu-bar move search-back]
1118 (define-key rmail-mode-map [menu-bar move search]
1121 (define-key rmail-mode-map [menu-bar move previous]
1124 (define-key rmail-mode-map [menu-bar move next]
1127 (define-key rmail-mode-map [menu-bar move last]
1130 (define-key rmail-mode-map [menu-bar move first]
1133 (define-key rmail-mode-map [menu-bar move previous]
1136 (define-key rmail-mode-map [menu-bar move next]
1140 (defvar rmail-tool-bar-map
1143 	(tool-bar-local-item-from-menu 'rmail-get-new-mail "mail/inbox"
1145 	(tool-bar-local-item-from-menu 'rmail-next-undeleted-message "right-arrow"
1147 	(tool-bar-local-item-from-menu 'rmail-previous-undeleted-message "left-arrow"
1149 	(tool-bar-local-item-from-menu 'rmail-search "search"
1151 	(tool-bar-local-item-from-menu 'rmail-input "open"
1153 	(tool-bar-local-item-from-menu 'rmail-mail "mail/compose"
1155 	(tool-bar-local-item-from-menu 'rmail-reply "mail/reply-all"
1157 	(tool-bar-local-item-from-menu 'rmail-forward "mail/forward"
1159 	(tool-bar-local-item-from-menu 'rmail-delete-forward "close"
1161 	(tool-bar-local-item-from-menu 'rmail-output "mail/move"
1163 	(tool-bar-local-item-from-menu 'rmail-output-body-to-file "mail/save"
1165 	(tool-bar-local-item-from-menu 'rmail-expunge "delete"
1298   (set (make-local-variable 'tool-bar-map) rmail-tool-bar-map)
1498 	  (define-key rmail-mode-map [menu-bar classify input-menu]
1503 	  (define-key rmail-mode-map [menu-bar classify output-menu]
1509       (define-key rmail-mode-map [menu-bar classify input-menu]
1511       (define-key rmail-mode-map [menu-bar classify output-menu]
2410 		(rmail-count-screen-lines (window-start window) (point))))
2450 ;; Lifted from repos-count-screen-lines.
2451 ;; Return number of screen lines between START and END.
2452 (defun rmail-count-screen-lines (start end)
3281 take into account that subject header lines may include newlines
3285     ;; If Subject is long, mailers will break it into several lines at
3698                 (bar "[^][\000-\037()<>@,;:\\\"]+"))
3700            (or (string-match (concat "\\`[ \t]*\\(" bar
3702                              ;; "Unix Loser <Foo@bar.edu>" => "Unix Loser"
3705                                      bar "\\))[ \t]*\\'")
3706                              ;; "<Bugs@bar.edu>" (Losing Unix) => "Losing Unix"
3720                  ;; "<AA259@bar.edu> (message from Unix Loser on 1-Apr-89)"
3766 	      ;; Quote lines with `- ' if they start with `-'.
3944 	  ;; message is indented, and included within lines saying
3954 	    ;; One message contained a few random lines before
3957 	    ;; followed these random lines.  The same line