From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 21 Apr 2000 11:49:18 +0000 (+0000)
Subject: * mm-view.el: Fix autoload.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=4fd02af930ba0e7ad221f0f46cf3cca52b9b1e96

* 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 f5216ca1e..a65165456 100644
--- 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 b0883deeb..9aae7c4b3 100644
--- 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 b7d244ab8..94c547e63 100644
--- 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 b8c08ed13..f54bdf0ca 100644
--- 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 1da662d7f..89e0465a9 100644
--- 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 e52aabc4c..2600bc181 100644
--- 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"))
 
 ;;;