* gnus-fun.el (gnus-display-x-face-in-from): Fake it.

	From: Karl Kleinpaste <karl@charcoal.com>

	* gnus-art.el (article-display-x-face): Ditto.
	(gnus-article-reply-with-original): Use gnus-region-active-p.
	(gnus-article-followup-with-original): Ditto.

	* gnus-sum.el (gnus-summary-read-group-1): Don't select
	downloadable article either.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92ef870..c75b060 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2002-01-11  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-fun.el (gnus-display-x-face-in-from): Fake it.
+       From: Karl Kleinpaste <karl@charcoal.com>
+       
+       * gnus-art.el (article-display-x-face): Ditto.
+       (gnus-article-reply-with-original): Use gnus-region-active-p.
+       (gnus-article-followup-with-original): Ditto.
+
+       * gnus-sum.el (gnus-summary-read-group-1): Don't select
+       downloadable article either.
+       
 2002-01-11  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (article-display-x-face): Insert From:.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f663e02..557c394 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1813,8 +1813,8 @@ unfolded."
                  (setq image (gnus-create-image xpm 'xpm t))
                  (gnus-article-goto-header "from")
                  (when (bobp) 
-                   (insert "From: \n")
-                   (forward-char -2))
+                   (insert "From: [no `from' set]\n")
+                   (forward-char -17))
                  (gnus-add-wash-type 'xface)
                  (gnus-add-image 'xface image)
                  (gnus-put-image image)))
@@ -4679,30 +4679,32 @@ Argument LINES specifies lines to be scrolled down."
 The text in the region will be yanked.  If the region isn't active,
 the entire article will be yanked."
   (interactive "P")
-  (let ((article (cdr gnus-article-current)))
-    (if (not mark-active)
+  (let ((article (cdr gnus-article-current)) cont)
+    (if (not (gnus-region-active-p))
        (gnus-summary-reply (list (list article)) wide)
+      (setq cont (buffer-substring (point) (mark)))
       ;; Deactivate active regions.
       (when (and (boundp 'transient-mark-mode)
                 transient-mark-mode)
        (setq mark-active nil))
       (gnus-summary-reply
-       (list (list article (buffer-substring (point) (mark)))) wide))))
+       (list (list article cont)) wide))))
 
 (defun gnus-article-followup-with-original ()
   "Compose a followup to the current article.
 The text in the region will be yanked.  If the region isn't active,
 the entire article will be yanked."
   (interactive)
-  (let ((article (cdr gnus-article-current)))
-    (if (not mark-active)
+  (let ((article (cdr gnus-article-current)) cont)
+    (if (not (gnus-region-active-p))
        (gnus-summary-followup (list (list article)))
+      (setq cont (buffer-substring (point) (mark)))
       ;; Deactivate active regions.
       (when (and (boundp 'transient-mark-mode)
                 transient-mark-mode)
        (setq mark-active nil))
       (gnus-summary-followup
-       (list (list article (buffer-substring (point) (mark))))))))
+       (list (list article cont))))))
 
 (defun gnus-article-hide (&optional arg force)
   "Hide all the gruft in the current article.

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index 876b5e7..eb46557 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -177,8 +177,8 @@ colors of the displayed X-Faces."
          (article-narrow-to-head)
          (gnus-article-goto-header "from")
          (when (bobp) 
-           (insert "From: \n")
-           (forward-char -2))
+           (insert "From: [no `from' set]\n")
+           (forward-char -17))
          (gnus-add-image
           'xface
           (gnus-put-image

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 1547272..6141734 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3291,7 +3291,8 @@ If NO-DISPLAY, don't generate a summary buffer."
            (progn
              (gnus-configure-windows 'summary)
              (let ((art (gnus-summary-article-number)))
-               (unless (memq art gnus-newsgroup-undownloaded)
+               (unless (or (memq art gnus-newsgroup-undownloaded)
+                           (memq art gnus-newsgroup-downloadable))
                  (gnus-summary-goto-article art))))
          ;; Don't select any articles.
          (gnus-summary-position-point)