* flow-fill.el (flow-fill): Fix provide.
* gnus-draft.el (gnus-draft-send): Bind message-setup-hook to
nil.
+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.
2000-04-20 21:22:10 Shenghuo ZHU <zsh@cs.rochester.edu>
* gnus-draft.el (gnus-draft-setup): Restore to mml.
-;;; 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>
;; Copyright (C) 2000 Free Software Foundation, Inc.
;; Author: Simon Josefsson <jas@pdc.kth.se>
(fill-flowed-point-at-eol)
'left 'nosqueeze)))))))
(fill-flowed-point-at-eol)
'left 'nosqueeze)))))))
-;;; fill-flowed.el ends here
+;;; flow-fill.el ends here
message-inhibit-body-encoding))
(message-send-hook (and group (not (equal group "nndraft:queue"))
message-send-hook))
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.
type method)
;; We read the meta-information that says how and where
;; this message is to be sent.
(when (assoc "default" (car rest))
(push (car rest) result))
(pop rest)))
(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))
- (not (equalp port (or (gnus-netrc-get result) "nntp"))))
+ (not (equal port (gnus-netrc-get (car result) "port"))))
(defun gnus-netrc-get (alist type)
"Return the value of token TYPE from ALIST."
(defun gnus-netrc-get (alist type)
"Return the value of token TYPE from ALIST."
(gnus-delete-windows-in-gnusey-frames))
;; Just remove some windows.
(gnus-remove-some-windows)
(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)
(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))))))))
(gnus-configure-frame split)
(when gnus-window-frame-focus
(select-frame (window-frame gnus-window-frame-focus))))))))
(autoload 'gnus-article-prepare-display "gnus-art")
(autoload 'vcard-parse-string "vcard")
(autoload 'vcard-format-string "vcard")
(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"))
;;;
(autoload 'diff-mode "diff-mode"))
;;;