Synch'ed up to qgnus-0.18.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b73dbb..4b373ee 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,29 @@
+Sat Dec  6 17:40:33 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Quassia Gnus v0.18 is released.
+
+Sat Dec  6 17:27:04 1997  Kim-Minh Kaplan  <KimMinh.Kaplan@Utopia.EUnet.fr>
+
+       * gnus-picon.el (gnus-picons-remove): Race condition.
+
+Sat Dec  6 17:23:26 1997  Christian von Roques  <roques@scalar.pond.sub.org>
+
+       * gnus-start.el (gnus-read-descriptions-file): Fix
+       enable-multibyte-characters. 
+
+1997-12-05  Dave Love  <d.love@dl.ac.uk>
+
+       * gnus-nocem.el (gnus-nocem-message-wanted-p): Fix paren typpo.
+       (gnus-nocem-issuers): Allow sexp alternative in :type for alists.
+
+1997-12-05  Dave Love  <d.love@dl.ac.uk>
+
+       * gnus-art.el (gnus-visible-headers): Add X-sent:.
+
+Sat Dec  6 17:16:28 1997  Lars Balker Rasmussen  <lbr@mjolner.dk>
+
+       * gnus-art.el (article-make-date-line): Don't add extra newlines. 
+
 1997-11-29  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * gnus.el (gnus-version): Rename to "Semi-gnus".
@@ -7,6 +33,72 @@
        * gnus-draft.el (gnus-draft-decoding-function): New variable.
        (gnus-draft-setup): Use `gnus-draft-decoding-function'.
 
+1997-11-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * nnmail.el (nnmail-file-coding-system): Use `raw-text' in
+       default.
+
+       * nnheader.el (nnheader-file-coding-system): Use `raw-text' in
+       default.
+
+Sat Dec  6 17:04:40 1997  Kim-Minh Kaplan  <KimMinh.Kaplan@utopia.eunet.fr>
+
+       * nnml.el (nnml-parse-head): Out-of-bounds fix.
+
+       * nndraft.el (nndraft-request-associate-buffer): Get proper file
+       name. 
+
+Sat Dec  6 15:35:37 1997  Gary D. Foster  <Gary.Foster@Corp.Sun.COM>
+
+       * gnus-group.el: Added backspace.
+
+Thu Nov 27 19:56:59 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-agent.el (gnus-summary-set-agent-mark): Remove marks
+       properly. 
+
+1997-11-27  Christoph Wedler  <wedler@fmi.uni-passau.de>
+
+       * smiley.el (smiley-buffer): Provide `help-echo'.
+
+Thu Nov 27 17:33:45 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-util.el (gnus-output-to-rmail): Always save buffer.
+
+       * nntp.el (nntp-close-server): Don't sleep for me, Argentina.
+       (nntp-request-close): You neither.
+
+1997-11-19  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * message.el (message-header-lines): New widget.
+       (message-default-headers): Use it.
+       (message-default-mail-headers): Use it.
+       (message-default-news-headers): Use it.
+
+1997-11-24  Andreas Jaeger  <aj@arthur.rhein-neckar.de>
+
+       * gnus-start.el (gnus-read-descriptions-file): Add missing quote.
+
+Wed Nov 26 18:19:29 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * nnweb.el (nnweb-type-definition): Rescued dejanewsold.
+
+       * gnus-mh.el (gnus-summary-save-in-folder): Reverted to old
+       version. 
+
+       * gnus-sum.el (gnus-kill-or-deaden-summary): Save excursion.
+
+       * gnus.el: Only require gnus-load in Emacsen 19.
+
+       * gnus-start.el (gnus-setup-news): Always push archive server.
+
+       * gnus-sum.el (gnus-read-header): Would bug out on sparse
+       articles. 
+
+Wed Nov 26 17:50:41 1997  Kurt Swanson  <kurt@dna.lth.se>
+
+       * gnus-ems.el (gnus-mule-cite-add-face): Work.
+
 Wed Nov 26 17:40:57 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Quassia Gnus v0.17 is released.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 3d35c65..546b8b5 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -107,7 +107,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
   :group 'gnus-article-hiding)
 
 (defcustom gnus-visible-headers
-  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From"
+  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:"
   "All headers that do not match this regexp will be hidden.
 This variable can also be a list of regexp of headers to remain visible.
 If this variable is non-nil, `gnus-ignored-headers' will be ignored."
@@ -1371,9 +1371,9 @@ how much time has lapsed since DATE."
           num prev)
       (cond
        ((null real-time)
-       "X-Sent: Unknown\n")
+       "X-Sent: Unknown")
        ((zerop sec)
-       "X-Sent: Now\n")
+       "X-Sent: Now")
        (t
        (concat
         "X-Sent: "

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 3ef4e09..351e006 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1130,6 +1130,7 @@ increase the score of each group you read."
     " " gnus-summary-next-page
     "\177" gnus-summary-prev-page
     [delete] gnus-summary-prev-page
+    [backspace] gnus-summary-prev-page
     "\r" gnus-summary-scroll-up
     "\e\r" gnus-summary-scroll-down
     "n" gnus-summary-next-unread-article
@@ -5258,25 +5259,26 @@ which existed when entering the ephemeral is reset."
 
 (defun gnus-kill-or-deaden-summary (buffer)
   "Kill or deaden the summary BUFFER."
-  (when (and (buffer-name buffer)
-            (not gnus-single-article-buffer))
-    (save-excursion
-      (set-buffer buffer)
-      (gnus-kill-buffer gnus-article-buffer)
-      (gnus-kill-buffer gnus-original-article-buffer)))
-  (cond (gnus-kill-summary-on-exit
-        (when (and gnus-use-trees
-                   (and (get-buffer buffer)
-                        (buffer-name (get-buffer buffer))))
+  (save-excursion
+    (when (and (buffer-name buffer)
+              (not gnus-single-article-buffer))
+      (save-excursion
+       (set-buffer buffer)
+       (gnus-kill-buffer gnus-article-buffer)
+       (gnus-kill-buffer gnus-original-article-buffer)))
+    (cond (gnus-kill-summary-on-exit
+          (when (and gnus-use-trees
+                     (and (get-buffer buffer)
+                          (buffer-name (get-buffer buffer))))
+            (save-excursion
+              (set-buffer (get-buffer buffer))
+              (gnus-tree-close gnus-newsgroup-name)))
+          (gnus-kill-buffer buffer))
+         ((and (get-buffer buffer)
+               (buffer-name (get-buffer buffer)))
           (save-excursion
-            (set-buffer (get-buffer buffer))
-            (gnus-tree-close gnus-newsgroup-name)))
-        (gnus-kill-buffer buffer))
-       ((and (get-buffer buffer)
-             (buffer-name (get-buffer buffer)))
-        (save-excursion
-          (set-buffer buffer)
-          (gnus-deaden-summary)))))
+            (set-buffer buffer)
+            (gnus-deaden-summary))))))
 
 (defun gnus-summary-wake-up-the-dead (&rest args)
   "Wake up the dead summary buffer."
@@ -8717,10 +8719,12 @@ save those articles instead."
       ;; previous entry in the thread hashtb.
       (when (and header
                 (gnus-summary-article-sparse-p (mail-header-number header)))
-       (let ((thread (gnus-gethash
-                      (gnus-parent-id (mail-header-references header))
-                      gnus-newsgroup-dependencies)))
-         (delq (assq header thread) thread)))
+       (let* ((parent (gnus-parent-id (mail-header-references header)))
+              (thread
+               (and parent
+                    (gnus-gethash parent gnus-newsgroup-dependencies))))
+         (when thread
+           (delq (assq header thread) thread))))
       ;; We have to really fetch the header to this article.
       (save-excursion
        (set-buffer nntp-server-buffer)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 77c97d8..c52bdb1 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -31,7 +31,9 @@
 (eval-when-compile (require 'cl))
 
 (require 'custom)
-(require 'gnus-load)
+(eval-and-compile
+  (if (< emacs-major-version 20)
+      (require 'gnus-load)))
 (require 'message)
 
 (defgroup gnus nil
@@ -248,7 +250,7 @@ is restarted, and sometimes reloaded."
   "Version number for this version of gnus.")
 
 (defconst gnus-version
-  (format "Semi-gnus %s (based on Quassia Gnus v0.17)" gnus-version-number)
+  (format "Semi-gnus %s (based on Quassia Gnus v0.18)" gnus-version-number)
   "Version string for this version of gnus.")
 
 (defcustom gnus-inhibit-startup-message nil
@@ -1746,7 +1748,7 @@ This restriction may disappear in later versions of Gnus."
 
 (defun gnus-suppress-keymap (keymap)
   (suppress-keymap keymap)
-  (let ((keys `([delete] "\177" "\M-u"))) ;gnus-mouse-2
+  (let ((keys `([backspace] [delete] "\177" "\M-u"))) ;gnus-mouse-2
     (while keys
       (define-key keymap (pop keys) 'undefined))))
 

diff --git a/lisp/message.el b/lisp/message.el
index 2aaf2cf..55e3d8e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -548,7 +548,6 @@ If stringp, use this; if non-nil, use no host name (user name only)."
 (define-widget 'message-header-lines 'text
   "All header lines must be LFD terminated."
   :valid-regexp "^\\'"
-  :format "%t:\n%v"
   :error "All header lines must be newline terminated")
 
 (defcustom message-default-headers ""

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 276fbfc..8faa223 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -60,6 +60,9 @@ values are 'apop.")
   "Timestamp returned when initially connected to the POP server.
 Used for APOP authentication.")
 
+(defvar pop3-movemail-file-coding-system nil
+  "Crashbox made by pop3-movemail with this coding system.")
+
 (defvar pop3-read-point nil)
 (defvar pop3-debug nil)
 
@@ -91,7 +94,8 @@ Used for APOP authentication.")
       (pop3-retr process n crashbuf)
       (save-excursion
        (set-buffer crashbuf)
-       (append-to-file (point-min) (point-max) crashbox)
+       (let ((coding-system-for-write pop3-movemail-file-coding-system))
+         (append-to-file (point-min) (point-max) crashbox))
        (set-buffer (process-buffer process))
        (while (> (buffer-size) 5000)
          (goto-char (point-min))