Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 375f2633d815 |
children | f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
89908:ee1402f7b568 | 89909:68c22ea6027c |
---|---|
49 (defvar rmail-summary-font-lock-keywords | 49 (defvar rmail-summary-font-lock-keywords |
50 '(("^.....D.*" . font-lock-string-face) ; Deleted. | 50 '(("^.....D.*" . font-lock-string-face) ; Deleted. |
51 ("^.....-.*" . font-lock-type-face) ; Unread. | 51 ("^.....-.*" . font-lock-type-face) ; Unread. |
52 ;; Neither of the below will be highlighted if either of the above are: | 52 ;; Neither of the below will be highlighted if either of the above are: |
53 ("^.....[^D-] \\(......\\)" 1 font-lock-keyword-face) ; Date. | 53 ("^.....[^D-] \\(......\\)" 1 font-lock-keyword-face) ; Date. |
54 ("{ \\([^\n}]+\\),}" 1 font-lock-comment-face)) ; Labels. | 54 ("{ \\([^\n}]+\\) }" 1 font-lock-comment-face)) ; Labels. |
55 "Additional expressions to highlight in Rmail Summary mode.") | 55 "Additional expressions to highlight in Rmail Summary mode.") |
56 | 56 |
57 ;; Entry points for making a summary buffer. | 57 ;; Entry points for making a summary buffer. |
58 | 58 |
59 ;; Regenerate the contents of the summary | 59 ;; Regenerate the contents of the summary |
298 ; "!" "") | 298 ; "!" "") |
299 (if (progn (search-forward ",,") (eolp)) | 299 (if (progn (search-forward ",,") (eolp)) |
300 "" | 300 "" |
301 (concat "{" | 301 (concat "{" |
302 (buffer-substring (point) | 302 (buffer-substring (point) |
303 (progn (end-of-line) (point))) | 303 (progn (end-of-line) |
304 "} "))))) | 304 (backward-char) |
305 (if (looking-at ",") | |
306 (point) | |
307 (1+ (point))))) | |
308 " } "))))) | |
305 (line | 309 (line |
306 (progn | 310 (progn |
307 (forward-line 1) | 311 (forward-line 1) |
308 (if (looking-at "Summary-line: ") | 312 (if (looking-at "Summary-line: ") |
309 (progn | 313 (progn |
1068 (if (not n) | 1072 (if (not n) |
1069 (setq n curmsg) | 1073 (setq n curmsg) |
1070 (if (< n 1) | 1074 (if (< n 1) |
1071 (progn (message "No preceding message") | 1075 (progn (message "No preceding message") |
1072 (setq n 1))) | 1076 (setq n 1))) |
1073 (if (> n total) | 1077 (if (and (> n total) |
1078 (> total 0)) | |
1074 (progn (message "No following message") | 1079 (progn (message "No following message") |
1075 (goto-char (point-max)) | 1080 (goto-char (point-max)) |
1076 (rmail-summary-goto-msg nil nowarn skip-rmail))) | 1081 (rmail-summary-goto-msg nil nowarn skip-rmail))) |
1077 (goto-char (point-min)) | 1082 (goto-char (point-min)) |
1078 (if (not (re-search-forward (format "^%5d[^0-9]" n) nil t)) | 1083 (if (not (re-search-forward (format "^%5d[^0-9]" n) nil t)) |
1648 (funcall sortfun reverse)) | 1653 (funcall sortfun reverse)) |
1649 (select-window selwin)))) | 1654 (select-window selwin)))) |
1650 | 1655 |
1651 (provide 'rmailsum) | 1656 (provide 'rmailsum) |
1652 | 1657 |
1658 ;;; arch-tag: 556079ee-75c1-47f5-9884-2e0a0bc6c5a1 | |
1653 ;;; rmailsum.el ends here | 1659 ;;; rmailsum.el ends here |