Mercurial > emacs
comparison lisp/mail/mh-e.el @ 42205:7308bbc423d5
Doc fixes.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Thu, 20 Dec 2001 18:59:32 +0000 |
parents | c7c47d22ece8 |
children | 2568d5a27317 |
comparison
equal
deleted
inserted
replaced
42204:73e75f765479 | 42205:7308bbc423d5 |
---|---|
58 | 58 |
59 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. | 59 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. |
60 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. | 60 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
61 ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu | 61 ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu |
62 ;; Modified by Stephen Gildea 1988. gildea@stop.mail-abuse.org | 62 ;; Modified by Stephen Gildea 1988. gildea@stop.mail-abuse.org |
63 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.28 2001/07/15 19:53:53 pj Exp $") | 63 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.30 2001/09/23 17:38:22 eliz Exp $") |
64 | 64 |
65 ;;; Code: | 65 ;;; Code: |
66 | 66 |
67 (provide 'mh-e) | 67 (provide 'mh-e) |
68 (require 'mh-utils) | 68 (require 'mh-utils) |
201 (defvar mh-note-cur "+" | 201 (defvar mh-note-cur "+" |
202 "String whose first character is used to notate the current message.") | 202 "String whose first character is used to notate the current message.") |
203 | 203 |
204 (defvar mh-partial-folder-mode-line-annotation "select" | 204 (defvar mh-partial-folder-mode-line-annotation "select" |
205 "Annotation when displaying part of a folder. | 205 "Annotation when displaying part of a folder. |
206 The string is displayed after the folder's name. NIL for no annotation.") | 206 The string is displayed after the folder's name. nil for no annotation.") |
207 | 207 |
208 | 208 |
209 ;;; Internal variables: | 209 ;;; Internal variables: |
210 | 210 |
211 (defvar mh-last-destination nil) ;Destination of last refile or write command. | 211 (defvar mh-last-destination nil) ;Destination of last refile or write command. |
777 Non-nil means do not prompt for confirmation before executing some | 777 Non-nil means do not prompt for confirmation before executing some |
778 non-recoverable commands such as `mh-kill-folder' and `mh-undo-folder'. | 778 non-recoverable commands such as `mh-kill-folder' and `mh-undo-folder'. |
779 | 779 |
780 `mhl-formfile' (nil) | 780 `mhl-formfile' (nil) |
781 Name of format file to be used by mhl to show messages. | 781 Name of format file to be used by mhl to show messages. |
782 A value of T means use the default format file. | 782 A value of t means use the default format file. |
783 Nil means don't use mhl to format messages. | 783 nil means don't use mhl to format messages. |
784 | 784 |
785 `mh-lpr-command-format' (\"lpr -p -J '%s'\") | 785 `mh-lpr-command-format' (\"lpr -p -J '%s'\") |
786 Format for command used to print a message on a system printer. | 786 Format for command used to print a message on a system printer. |
787 | 787 |
788 `mh-scan-prog' (\"scan\") | 788 `mh-scan-prog' (\"scan\") |
1078 (message "Processing deletes and refiles for %s...done" folder))) | 1078 (message "Processing deletes and refiles for %s...done" folder))) |
1079 | 1079 |
1080 | 1080 |
1081 (defun mh-update-unseen () | 1081 (defun mh-update-unseen () |
1082 ;; Flush updates to the Unseen sequence out to MH. | 1082 ;; Flush updates to the Unseen sequence out to MH. |
1083 ;; Return non-NIL iff set the MH folder. | 1083 ;; Return non-nil iff set the MH folder. |
1084 (if mh-seen-list | 1084 (if mh-seen-list |
1085 (let* ((unseen-seq (mh-find-seq mh-unseen-seq)) | 1085 (let* ((unseen-seq (mh-find-seq mh-unseen-seq)) |
1086 (unseen-msgs (mh-seq-msgs unseen-seq))) | 1086 (unseen-msgs (mh-seq-msgs unseen-seq))) |
1087 (if unseen-msgs | 1087 (if unseen-msgs |
1088 (progn | 1088 (progn |
1209 (mh-notate-seq name mh-note-seq (1+ mh-cmd-note))) | 1209 (mh-notate-seq name mh-note-seq (1+ mh-cmd-note))) |
1210 (setq seqs (cdr seqs))))) | 1210 (setq seqs (cdr seqs))))) |
1211 | 1211 |
1212 | 1212 |
1213 (defun mh-internal-seq (name) | 1213 (defun mh-internal-seq (name) |
1214 ;; Return non-NIL if NAME is the name of an internal mh-e sequence. | 1214 ;; Return non-nil if NAME is the name of an internal mh-e sequence. |
1215 (or (memq name '(answered cur deleted forwarded printed)) | 1215 (or (memq name '(answered cur deleted forwarded printed)) |
1216 (eq name mh-unseen-seq) | 1216 (eq name mh-unseen-seq) |
1217 (eq name mh-previous-seq) | 1217 (eq name mh-previous-seq) |
1218 (mh-folder-name-p name))) | 1218 (mh-folder-name-p name))) |
1219 | 1219 |