* gnus-sum.el (gnus-summary-expire-articles): Don't save

excursion.

* nnslashdot.el (nnslashdot-request-list): Get the right year.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4ae671a..bedf12a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-03 07:26:58  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-ignored-mail-headers): Add draft header.
+
 2001-01-02 06:28:28  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-summary-expire-articles): Don't save

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 1de86ed..fbb58b9 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -40,6 +40,8 @@
 (push (or (getenv "W3DIR") (expand-file-name "../../w3/lisp/" srcdir)) 
       load-path)
 
+(push "/usr/share/emacs/site-lisp" load-path)
+
 (unless (featurep 'xemacs)
   (define-compiler-macro last (&whole form x &optional n)
     (if (and (fboundp 'last)

diff --git a/lisp/message.el b/lisp/message.el
index 90785a8..3c8467e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -207,7 +207,8 @@ included.  Organization, Lines and User-Agent are optional."
   :group 'message-headers
   :type 'regexp)
 
-(defcustom message-ignored-mail-headers "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:"
+(defcustom message-ignored-mail-headers
+  "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|X-Draft-From:"
   "*Regexp of headers to be removed unconditionally before mailing."
   :group 'message-mail
   :group 'message-headers