* mm-view.el: Fix autoload.

* flow-fill.el (flow-fill): Fix provide.

* gnus-draft.el (gnus-draft-send): Bind message-setup-hook to
nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5216ca..a651654 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2000-04-21 13:54:51  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * mm-view.el: Fix autoload.
+
+       * flow-fill.el (flow-fill): Fix provide.
+
+       * gnus-draft.el (gnus-draft-send): Bind message-setup-hook to
+       nil. 
+
+2000-04-20 22:24:04  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-win.el (gnus-configure-windows): Revert to switch-to-buffer.
+
+2000-04-21 05:22:18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus-util.el (gnus-netrc-machine): Didn't work.
+
 2000-04-20 21:22:10  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-draft.el (gnus-draft-setup): Restore to mml.

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index b0883de..9aae7c4 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -1,4 +1,4 @@
-;;; fill-flowed.el --- interprete RFC2646 "flowed" text
+;;; flow-fill.el --- interprete RFC2646 "flowed" text
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <jas@pdc.kth.se>
@@ -89,6 +89,6 @@
                         (fill-flowed-point-at-eol)
                         'left 'nosqueeze)))))))
 
-(provide 'fill-flowed)
+(provide 'flow-fill)
 
-;;; fill-flowed.el ends here
+;;; flow-fill.el ends here

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index b7d244a..94c547e 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -129,6 +129,7 @@
                                           message-inhibit-body-encoding))
        (message-send-hook (and group (not (equal group "nndraft:queue"))
                                message-send-hook))
+       (message-setup-hook nil)
        type method)
     ;; We read the meta-information that says how and where
     ;; this message is to be sent.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index b8c08ed..f54bdf0 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -868,13 +868,12 @@ ARG is passed to the first function."
        (when (assoc "default" (car rest))
          (push (car rest) result))
        (pop rest)))
-    (setq result (nreverse result))
-    (if (null result)
-       nil
+    (when result
+      (setq result (nreverse result))
       (while (and result
-                 (not (equalp port (or (gnus-netrc-get result) "nntp"))))
+                 (not (equal port (gnus-netrc-get (car result) "port"))))
        (pop result))
-      result)))
+      (car result))))
 
 (defun gnus-netrc-get (alist type)
   "Return the value of token TYPE from ALIST."

diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el
index 1da662d..89e0465 100644 (file)
--- a/lisp/gnus-win.el
+++ b/lisp/gnus-win.el
@@ -446,11 +446,11 @@ See the Gnus manual for an explanation of the syntax used.")
                    (gnus-delete-windows-in-gnusey-frames))
                ;; Just remove some windows.
                (gnus-remove-some-windows)
-               (set-buffer nntp-server-buffer))
+               (switch-to-buffer nntp-server-buffer))
            (select-frame frame)))
 
        (let (gnus-window-frame-focus)
-         (set-buffer nntp-server-buffer)
+         (switch-to-buffer nntp-server-buffer)
          (gnus-configure-frame split)
          (when gnus-window-frame-focus
            (select-frame (window-frame gnus-window-frame-focus))))))))

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index e52aabc..2600bc1 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -33,7 +33,7 @@
   (autoload 'gnus-article-prepare-display "gnus-art")
   (autoload 'vcard-parse-string "vcard")
   (autoload 'vcard-format-string "vcard")
-  (autoload 'fill-flowed "fill-flowed")
+  (autoload 'fill-flowed "flow-fill")
   (autoload 'diff-mode "diff-mode"))
 
 ;;;