[Emacs-diffs] Changes to emacs/lisp/mail/mh-utils.el

[Pavel Janík]

Index: emacs/lisp/mail/mh-utils.el
diff -c emacs/lisp/mail/mh-utils.el:1.29 emacs/lisp/mail/mh-utils.el:1.30
*** emacs/lisp/mail/mh-utils.el:1.29    Thu Oct 25 06:13:00 2001
--- emacs/lisp/mail/mh-utils.el Thu Dec 20 13:25:13 2001
***************
*** 116,123 ****
  
  (defcustom mhl-formfile nil
    "*Name of format file to be used by mhl to show and print messages.
! A value of T means use the default format file.
! Nil means don't use mhl to format messages when showing; mhl is still used,
  with the default format file, to format messages when printing them.
  The format used should specify a non-zero value for overflowoffset so
  the message continues to conform to RFC 822 and mh-e can parse the headers."
--- 116,123 ----
  
  (defcustom mhl-formfile nil
    "*Name of format file to be used by mhl to show and print messages.
! A value of t means use the default format file.
! nil means don't use mhl to format messages when showing; mhl is still used,
  with the default format file, to format messages when printing them.
  The format used should specify a non-zero value for overflowoffset so
  the message continues to conform to RFC 822 and mh-e can parse the headers."
***************
*** 133,139 ****
  save-excursion, with point at the start of the message.  It should
  return the folder to offer as the refile or Fcc folder, as a string
  with a leading `+' sign.  It can also return an empty string to use no
! default, or NIL to calculate the default the usual way.
  NOTE: This variable is not an ordinary hook;
  It may not be a list of functions.")
  
--- 133,139 ----
  save-excursion, with point at the start of the message.  It should
  return the folder to offer as the refile or Fcc folder, as a string
  with a leading `+' sign.  It can also return an empty string to use no
! default, or nil to calculate the default the usual way.
  NOTE: This variable is not an ordinary hook;
  It may not be a list of functions.")
  
***************
*** 162,168 ****
  ;; Cached value of the `Path:' component in the user's MH profile.
  (defvar mh-user-path nil)             ;User's mail folder directory.
  
! ;; An mh-draft-folder of NIL means do not use a draft folder.
  ;; Cached value of the `Draft-Folder:' component in the user's MH profile.
  (defvar mh-draft-folder nil)          ;Name of folder containing draft 
messages.
  
--- 162,168 ----
  ;; Cached value of the `Path:' component in the user's MH profile.
  (defvar mh-user-path nil)             ;User's mail folder directory.
  
! ;; An mh-draft-folder of nil means do not use a draft folder.
  ;; Cached value of the `Draft-Folder:' component in the user's MH profile.
  (defvar mh-draft-folder nil)          ;Name of folder containing draft 
messages.
  
***************
*** 529,535 ****
  
  (defun mh-get-profile-field (field)
    ;; Find and return the value of FIELD in the current buffer.
!   ;; Returns NIL if the field is not in the buffer.
    (let ((case-fold-search t))
      (goto-char (point-min))
      (cond ((not (re-search-forward (format "^%s" field) nil t)) nil)
--- 529,535 ----
  
  (defun mh-get-profile-field (field)
    ;; Find and return the value of FIELD in the current buffer.
!   ;; Returns nil if the field is not in the buffer.
    (let ((case-fold-search t))
      (goto-char (point-min))
      (cond ((not (re-search-forward (format "^%s" field) nil t)) nil)
***************
*** 848,854 ****
  
  
  (defun mh-folder-name-p (name)
!   ;; Return non-NIL if NAME is possibly the name of a folder.
    ;; A name (a string or symbol) can be a folder name if it begins with "+".
    (if (symbolp name)
        (eq (aref (symbol-name name) 0) ?+)
--- 848,854 ----
  
  
  (defun mh-folder-name-p (name)
!   ;; Return non-nil if NAME is possibly the name of a folder.
    ;; A name (a string or symbol) can be a folder name if it begins with "+".
    (if (symbolp name)
        (eq (aref (symbol-name name) 0) ?+)