Mercurial > emacs

comparison lisp/mail/rmailsum.el @ 89909:68c22ea6027c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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