* gnus-art.el (article-display-x-face): Insert From:.

	* gnus-sum.el (gnus-summary-move-article): Don't draw the
	article. Bind gnus-display-mime-function and
	gnus-article-prepare-hook.

	* gnus-agent.el (gnus-agent-retrieve-headers): Load agentview.
	(gnus-agent-toggle-plugged): Use gnus-agent-go-online. Move
	gnus-agent-possibly-synchronize-flags to the last.
	(gnus-agent-go-online): New function. New variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4e6649..92ef870 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2002-01-11  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (article-display-x-face): Insert From:.
+
+       * gnus-sum.el (gnus-summary-move-article): Don't draw the
+       article. Bind gnus-display-mime-function and
+       gnus-article-prepare-hook.
+
+       * gnus-agent.el (gnus-agent-retrieve-headers): Load agentview.
+       (gnus-agent-toggle-plugged): Use gnus-agent-go-online. Move 
+       gnus-agent-possibly-synchronize-flags to the last.
+       (gnus-agent-go-online): New function. New variable.
+
 2002-01-11  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-agent.el (gnus-agent-regenerate-group): Add clean option.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index ae42dae..105a616 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -118,6 +118,15 @@ If this is `ask' the hook will query the user."
                 (const :tag "Ask" ask))
   :group 'gnus-agent)
 
+(defcustom gnus-agent-go-online 'ask
+  "Indicate if offline servers go online when you plug in.
+If this is `ask' the hook will query the user."
+  :version "21.1"
+  :type '(choice (const :tag "Always" t)
+                (const :tag "Never" nil)
+                (const :tag "Ask" ask))
+  :group 'gnus-agent)
+
 ;;; Internal variables
 
 (defvar gnus-agent-history-buffers nil)
@@ -331,12 +340,13 @@ If this is `ask' the hook will query the user."
   (if plugged
       (progn
        (setq gnus-plugged plugged)
-       (gnus-agent-possibly-synchronize-flags)
        (gnus-run-hooks 'gnus-agent-plugged-hook)
        (setcar (cdr gnus-agent-mode-status) 
                (gnus-agent-make-mode-line-string " Plugged"
                                                  'mouse-2
-                                                 'gnus-agent-toggle-plugged)))
+                                                 'gnus-agent-toggle-plugged))
+       (gnus-agent-go-online gnus-agent-go-online)
+       (gnus-agent-possibly-synchronize-flags))
     (gnus-agent-close-connections)
     (setq gnus-plugged plugged)
     (gnus-run-hooks 'gnus-agent-unplugged-hook)
@@ -1819,6 +1829,7 @@ The following commands are available:
        (let ((coding-system-for-write
               gnus-agent-file-coding-system))
          (write-region (point-min) (point-max) file nil 'silent))
+       (gnus-agent-load-alist group)
        (gnus-agent-save-alist group uncached-articles nil)
        (gnus-agent-open-history)
        (setq gnus-agent-current-history (gnus-agent-history-buffer))
@@ -2050,6 +2061,17 @@ If CLEAN, don't read existing active and agentview files."
          (gnus-write-active-file active-file active-hashtb)))))
   (message "Regenerating Gnus agent files...done"))
 
+(defun gnus-agent-go-online (&optional force)
+  "Bring servers online."
+  (interactive (list t))
+  (dolist (server gnus-opened-servers)
+    (when (eq (nth 1 server) 'offline)
+      (if (if (eq force 'ask) 
+             (gnus-y-or-n-p 
+              (format "Bring %s:%s online? " (caar server) (cadar server)))
+           force)
+         (setcar (nthcdr 1 server) 'close)))))
+
 (provide 'gnus-agent)
 
 ;;; gnus-agent.el ends here

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 705f4c0..f663e02 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1812,6 +1812,9 @@ unfolded."
                (when xpm
                  (setq image (gnus-create-image xpm 'xpm t))
                  (gnus-article-goto-header "from")
+                 (when (bobp) 
+                   (insert "From: \n")
+                   (forward-char -2))
                  (gnus-add-wash-type 'xface)
                  (gnus-add-image 'xface image)
                  (gnus-put-image image)))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 03dc455..1547272 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8218,7 +8218,9 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
     ;; `gnus-read-move-group-name' an opportunity to suggest an
     ;; appropriate default.
     (unless (gnus-buffer-live-p gnus-original-article-buffer)
-      (gnus-summary-select-article nil nil nil (car articles)))
+      (let ((gnus-display-mime-function nil)
+           (gnus-article-prepare-hook nil))
+       (gnus-summary-select-article nil nil nil (car articles))))
     ;; Read the newsgroup name.
     (when (and (not to-newsgroup)
               (not select-method))