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

[Juanma Barranquero]

Index: emacs/lisp/mail/feedmail.el
diff -c emacs/lisp/mail/feedmail.el:1.19 emacs/lisp/mail/feedmail.el:1.20
*** emacs/lisp/mail/feedmail.el:1.19    Wed Jan 16 08:46:48 2002
--- emacs/lisp/mail/feedmail.el Thu Oct 17 12:53:45 2002
***************
*** 428,434 ****
  
  (defcustom feedmail-nuke-body-in-fcc nil
    "*If non-nil remove body of message in copies saved via Fcc:.
! If an positive integer value, leave (up to) that many lines of the
  beginning of the body intact.  The result is that the Fcc: copy will
  consist only of the message headers, serving as a sort of an outgoing
  message log."
--- 428,434 ----
  
  (defcustom feedmail-nuke-body-in-fcc nil
    "*If non-nil remove body of message in copies saved via Fcc:.
! If a positive integer value, leave (up to) that many lines of the
  beginning of the body intact.  The result is that the Fcc: copy will
  consist only of the message headers, serving as a sort of an outgoing
  message log."
***************
*** 845,851 ****
    (if (memq system-type '(axp-vms vax-vms))
        (expand-file-name (concat (getenv "HOME") "[.MAIL.DRAFT]"))
      (concat (getenv "HOME") "/mail/draft"))
!   "*Name of an directory where draft messages will be queued.
  Directory will be created if necessary.  Should be a string that
  doesn't end with a slash.  Default, except on VMS, is \"$HOME/mail/draft\"."
    :group 'feedmail-queue
--- 845,851 ----
    (if (memq system-type '(axp-vms vax-vms))
        (expand-file-name (concat (getenv "HOME") "[.MAIL.DRAFT]"))
      (concat (getenv "HOME") "/mail/draft"))
!   "*Name of a directory where draft messages will be queued.
  Directory will be created if necessary.  Should be a string that
  doesn't end with a slash.  Default, except on VMS, is \"$HOME/mail/draft\"."
    :group 'feedmail-queue