/[emacs]/emacs/lisp/mail/mh-e.el
ViewVC logotype

Diff of /emacs/lisp/mail/mh-e.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by eliz, Sun Sep 23 17:38:22 2001 UTC revision 1.31 by pj, Thu Dec 20 18:23:59 2001 UTC
# Line 203  A directory name string, or nil to use c Line 203  A directory name string, or nil to use c
203    
204  (defvar mh-partial-folder-mode-line-annotation "select"  (defvar mh-partial-folder-mode-line-annotation "select"
205    "Annotation when displaying part of a folder.    "Annotation when displaying part of a folder.
206  The string is displayed after the folder's name.  NIL for no annotation.")  The string is displayed after the folder's name.  nil for no annotation.")
207    
208    
209  ;;; Internal variables:  ;;; Internal variables:
# Line 779  Variables controlling mh-e operation are Line 779  Variables controlling mh-e operation are
779    
780   `mhl-formfile' (nil)   `mhl-formfile' (nil)
781      Name of format file to be used by mhl to show messages.      Name of format file to be used by mhl to show messages.
782      A value of T means use the default format file.      A value of t means use the default format file.
783      Nil means don't use mhl to format messages.      nil means don't use mhl to format messages.
784    
785   `mh-lpr-command-format' (\"lpr -p -J '%s'\")   `mh-lpr-command-format' (\"lpr -p -J '%s'\")
786      Format for command used to print a message on a system printer.      Format for command used to print a message on a system printer.
# Line 1080  The value of mh-folder-mode-hook is call Line 1080  The value of mh-folder-mode-hook is call
1080    
1081  (defun mh-update-unseen ()  (defun mh-update-unseen ()
1082    ;; Flush updates to the Unseen sequence out to MH.    ;; Flush updates to the Unseen sequence out to MH.
1083    ;; Return non-NIL iff set the MH folder.    ;; Return non-nil iff set the MH folder.
1084    (if mh-seen-list    (if mh-seen-list
1085        (let* ((unseen-seq (mh-find-seq mh-unseen-seq))        (let* ((unseen-seq (mh-find-seq mh-unseen-seq))
1086               (unseen-msgs (mh-seq-msgs unseen-seq)))               (unseen-msgs (mh-seq-msgs unseen-seq)))
# Line 1211  The value of mh-folder-mode-hook is call Line 1211  The value of mh-folder-mode-hook is call
1211    
1212    
1213  (defun mh-internal-seq (name)  (defun mh-internal-seq (name)
1214    ;; Return non-NIL if NAME is the name of an internal mh-e sequence.    ;; Return non-nil if NAME is the name of an internal mh-e sequence.
1215    (or (memq name '(answered cur deleted forwarded printed))    (or (memq name '(answered cur deleted forwarded printed))
1216        (eq name mh-unseen-seq)        (eq name mh-unseen-seq)
1217        (eq name mh-previous-seq)        (eq name mh-previous-seq)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26