From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Fri, 11 Jan 2002 21:46:06 +0000 (+0000)
Subject: 	* gnus-art.el (article-display-x-face): Insert From:.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=46bebfd98b7ad88e38fc3e9c445c3b42937e45d2;p=gnus

	* 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 d4e664924..92ef87005 100644
--- 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 ae42dae21..105a616a8 100644
--- 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 705f4c052..f663e021b 100644
--- 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 03dc45585..1547272e5 100644
--- 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))