* message.el (message-check-news-header-syntax): Don't push

groups twice onto list of unknown groups.

* nndoc.el (nndoc-type-alist): Move exim-bounce a bit further
back.

* nnheader.el (nnheader-find-etc-directory): Doc fix.

* gnus-msg.el (gnus-inews-add-send-actions): Don't restore window
config unless the summary buffer exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5954a87..6ef2a90 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,17 @@
 
 2003-03-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-check-news-header-syntax): Don't push
+       groups twice onto list of unknown groups.
+
+       * nndoc.el (nndoc-type-alist): Move exim-bounce a bit further
+       back.
+
+       * nnheader.el (nnheader-find-etc-directory): Doc fix.
+
+       * gnus-msg.el (gnus-inews-add-send-actions): Don't restore window
+       config unless the summary buffer exists.
+
        * gnus-sum.el (gnus-summary-next-group): Semi-exit group first to
        that target group is computed correctly when articles are marked
        as read by Xref handling.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 22cdba3..0b57ee0 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -534,7 +534,9 @@ Gcc: header for archiving purposes."
           (gnus-post-method arg ,gnus-newsgroup-name)))
   (setq message-newsreader (setq message-mailer (gnus-extended-version)))
   (message-add-action
-   `(set-window-configuration ,winconf) 'exit 'postpone 'kill)
+   `(when (gnus-buffer-exists-p ,buffer)
+      (set-window-configuration ,winconf))
+   'exit 'postpone 'kill)
   (let ((to-be-marked (cond
                       (yanked yanked)
                       (article (if (listp article) article (list article)))

diff --git a/lisp/message.el b/lisp/message.el
index 4c9157e..1313300 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3952,8 +3952,9 @@ Otherwise, generate and save a value for `canlock-password' first."
                     (gnus-groups-from-server method)))
            errors)
        (while groups
-        (unless (or (equal (car groups) "poster")
-                    (member (car groups) known-groups))
+        (when (and (not (equal (car groups) "poster"))
+                   (not (member (car groups) known-groups))
+                   (not (member (car groups) errors)))
           (push (car groups) errors))
         (pop groups))
        (cond

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index b9e259d..4d940c2 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/nndoc.el
@@ -58,9 +58,6 @@ from the document.")
   `((mmdf
      (article-begin .  "^\^A\^A\^A\^A\n")
      (body-end .  "^\^A\^A\^A\^A\n"))
-    (exim-bounce
-     (article-begin . "^------ This is a copy of the message, including all the headers. ------\n\n")
-     (body-end-function . nndoc-exim-bounce-body-end-function))
     (nsmail
      (article-begin .  "^From - "))
     (news
@@ -76,6 +73,9 @@ from the document.")
      (body-end . "\^_")
      (body-begin-function . nndoc-babyl-body-begin)
      (head-begin-function . nndoc-babyl-head-begin))
+    (exim-bounce
+     (article-begin . "^------ This is a copy of the message, including all the headers. ------\n\n")
+     (body-end-function . nndoc-exim-bounce-body-end-function))
     (rfc934
      (article-begin . "^--.*\n+")
      (body-end . "^--.*$")

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index f80f788..6d52131 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -866,7 +866,9 @@ without formatting."
   (or (nth 7 (file-attributes file)) 0))
 
 (defun nnheader-find-etc-directory (package &optional file)
-  "Go through the path and find the \".../etc/PACKAGE\" directory.
+  "Go through `load-path' and find the \"../etc/PACKAGE\" directory.
+This function will look in the parent directory of each `load-path'
+entry, and look for the \"etc\" directory there.
 If FILE, find the \".../etc/PACKAGE\" file instead."
   (let ((path load-path)
        dir result)