(sgml-parse-tag-backward): Fix to work at beginning of buffer.
[bpt/emacs.git] / lisp / mail / mh-e.el
index afdb8ec..386a9ac 100644 (file)
@@ -1,13 +1,13 @@
 ;;; mh-e.el --- GNU Emacs interface to the MH mail system
 
-;; Copyright (C) 1985,86,87,88,90,92,93,94,95,97 Free Software Foundation, Inc.
+;; Copyright (C) 1985,86,87,88,90,92,93,94,95,97,2000  Free Software Foundation, Inc.
 
-;; Maintainer: None
+;; Maintainer: Bill Wohler <wohler@newt.com>
 ;; Version: 5.0.2
 ;; Keywords: mail
 ;; Bug-reports: include `M-x mh-version' output in any correspondence
 
-;; This file is part of mh-e, part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -59,8 +59,8 @@
 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982.
 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
-;; Modified by Stephen Gildea 1988.  gildea@lcs.mit.edu
-(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.23 2000/03/07 12:36:39 gerd Exp $")
+;; Modified by Stephen Gildea 1988.  gildea@stop.mail-abuse.org
+(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.30 2001/09/23 17:38:22 eliz Exp $")
 
 ;;; Code:
 
@@ -162,7 +162,7 @@ otherwise, your output may be truncated."
 
 (defcustom mh-do-not-confirm nil
   "*Non-nil means do not prompt for confirmation before some mh-e commands.
-Affects non-recoverable commands such as mh-kill-folder and mh-undo-folder."
+Affects non-recoverable commands such as `mh-kill-folder' and `mh-undo-folder'."
   :type 'boolean
   :group 'mh)
 
@@ -203,7 +203,7 @@ A directory name string, or nil to use current directory."
 
 (defvar mh-partial-folder-mode-line-annotation "select"
   "Annotation when displaying part of a folder.
-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.")
 
 
 ;;; Internal variables:
@@ -629,7 +629,7 @@ Flush mh-e's state out to MH.  The message at the cursor becomes current."
   (save-excursion
     (mh-goto-msg msg nil t)
     (if (looking-at mh-refiled-msg-regexp)
-       (error "Message %d is refiled.  Undo refile before deleting." msg))
+       (error "Message %d is refiled.  Undo refile before deleting" msg))
     (if (looking-at mh-deleted-msg-regexp)
        nil
        (mh-set-folder-modified-p t)
@@ -643,7 +643,7 @@ Flush mh-e's state out to MH.  The message at the cursor becomes current."
   (save-excursion
     (mh-goto-msg msg nil t)
     (cond ((looking-at mh-deleted-msg-regexp)
-          (error "Message %d is deleted.  Undo delete before moving." msg))
+          (error "Message %d is deleted.  Undo delete before moving" msg))
          ((looking-at mh-refiled-msg-regexp)
           (if (y-or-n-p
                (format "Message %d already refiled.  Copy to %s as well? "
@@ -757,50 +757,50 @@ Here are all the commands with their current binding, listed in key order:
 
 Variables controlling mh-e operation are (defaults in parentheses):
 
mh-recursive-folders (nil)
`mh-recursive-folders' (nil)
     Non-nil means commands which operate on folders do so recursively.
 
mh-bury-show-buffer (t)
`mh-bury-show-buffer' (t)
     Non-nil means that the buffer used to display message is buried.
     It will never be offered as the default other buffer.
 
mh-clean-message-header (nil)
`mh-clean-message-header' (nil)
     Non-nil means remove header lines matching the regular expression
     specified in mh-invisible-headers from messages.
 
mh-visible-headers (nil)
`mh-visible-headers' (nil)
     If non-nil, it contains a regexp specifying the headers that are shown in
     a message if mh-clean-message-header is non-nil.  Setting this variable
-    overrides mh-invisible-headers.
+    overrides `mh-invisible-headers'.
 
mh-do-not-confirm (nil)
`mh-do-not-confirm' (nil)
     Non-nil means do not prompt for confirmation before executing some
-    non-recoverable commands such as mh-kill-folder and mh-undo-folder.
+    non-recoverable commands such as `mh-kill-folder' and `mh-undo-folder'.
 
mhl-formfile (nil)
`mhl-formfile' (nil)
     Name of format file to be used by mhl to show messages.
-    A value of T means use the default format file.
-    Nil means don't use mhl to format messages.
+    A value of t means use the default format file.
+    nil means don't use mhl to format messages.
 
mh-lpr-command-format (\"lpr -p -J '%s'\")
`mh-lpr-command-format' (\"lpr -p -J '%s'\")
     Format for command used to print a message on a system printer.
 
mh-scan-prog (\"scan\")
`mh-scan-prog' (\"scan\")
     Program to run to generate one-line-per-message listing of a folder.
     Normally \"scan\" or a file name linked to scan.  This file is searched
     for relative to the mh-progs directory unless it is an absolute pathname.
     Automatically becomes buffer-local when set in any fashion.
 
mh-print-background (nil)
`mh-print-background' (nil)
     Print messages in the background if non-nil.
     WARNING: do not delete the messages until printing is finished;
     otherwise, your output may be truncated.
 
mh-recenter-summary-p (nil)
`mh-recenter-summary-p' (nil)
     If non-nil, then the scan listing is recentered when the window displaying
     a messages is toggled off.
 
mh-summary-height (4)
`mh-summary-height' (4)
     Number of lines in the summary window including the mode line.
 
 The value of mh-folder-mode-hook is called when a new folder is set up."
@@ -845,8 +845,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
   ;; Take VARIABLE-VALUE pairs and make local variables initialized to the
   ;; value.
   (while pairs
-    (make-variable-buffer-local (car pairs))
-    (set (car pairs) (car (cdr pairs)))
+    (set (make-local-variable (car pairs)) (car (cdr pairs)))
     (setq pairs (cdr (cdr pairs)))))
 
 
@@ -1081,7 +1080,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
 
 (defun mh-update-unseen ()
   ;; Flush updates to the Unseen sequence out to MH.
-  ;; Return non-NIL iff set the MH folder.
+  ;; Return non-nil iff set the MH folder.
   (if mh-seen-list
       (let* ((unseen-seq (mh-find-seq mh-unseen-seq))
             (unseen-msgs (mh-seq-msgs unseen-seq)))
@@ -1212,7 +1211,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
 
 
 (defun mh-internal-seq (name)
-  ;; 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.
   (or (memq name '(answered cur deleted forwarded printed))
       (eq name mh-unseen-seq)
       (eq name mh-previous-seq)