From: yamaoka <yamaoka>
Date: Thu, 12 Jul 2001 22:55:23 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-04-quimby~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ee45385e3354a5a4ab01141305257feeca458dfc;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd4ada5..7505091 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2001-07-12  Bj,Av(Brn Torkelsson  <torkel@hpc2n.umu.se>
+
+	* gnus-srvr.el (gnus-browse-make-menu-bar): Changed one of the
+	Browse->Next entries to Browse->Prev
+	
+2001-07-11 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-msg.el (gnus-inews-do-gcc): Don't test gnus-alive-p.
+
 2001-07-11 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* mm-encode.el (mm-content-transfer-encoding-defaults): Use base64
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 23f5baf..0e38631 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1277,42 +1277,41 @@ this is a reply."
 ;; Do Gcc handling, which copied the message over to some group.
 (defun gnus-inews-do-gcc (&optional gcc)
   (interactive)
-  (when (gnus-alive-p)
-    (save-excursion
-      (save-restriction
-	(message-narrow-to-headers)
-	(let ((gcc (or gcc (mail-fetch-field "gcc" nil t)))
-	      (coding-system-for-write 'raw-text)
-	      (output-coding-system 'raw-text)
-	      groups group method group-art)
-	  (when gcc
-	    (message-remove-header "gcc")
-	    (widen)
-	    (setq groups (message-unquote-tokens
-                          (message-tokenize-header gcc " ,")))
-	    ;; Copy the article over to some group(s).
-	    (while (setq group (pop groups))
-	      (gnus-check-server
-	       (setq method (gnus-inews-group-method group)))
-	      (unless (gnus-request-group group nil method)
-		(gnus-request-create-group group method))
-	      (save-excursion
-		(nnheader-set-temp-buffer " *acc*")
-		(insert-buffer-substring message-encoding-buffer)
-		(gnus-run-hooks 'gnus-before-do-gcc-hook)
-		(goto-char (point-min))
-		(when (re-search-forward
-		       (concat "^" (regexp-quote mail-header-separator) "$")
-		       nil t)
-		  (replace-match "" t t ))
-		(unless (setq group-art
-			      (gnus-request-accept-article group method t t))
-		  (gnus-message 1 "Couldn't store article in group %s: %s"
-				group (gnus-status-message method))
-		  (sit-for 2))
-		(when (and group-art gnus-inews-mark-gcc-as-read)
-		  (gnus-group-mark-article-read group (cdr group-art)))
-		(kill-buffer (current-buffer))))))))))
+  (save-excursion
+    (save-restriction
+      (message-narrow-to-headers)
+      (let ((gcc (or gcc (mail-fetch-field "gcc" nil t)))
+	    (coding-system-for-write 'raw-text)
+	    (output-coding-system 'raw-text)
+	    groups group method group-art)
+	(when gcc
+	  (message-remove-header "gcc")
+	  (widen)
+	  (setq groups (message-unquote-tokens
+			(message-tokenize-header gcc " ,")))
+	  ;; Copy the article over to some group(s).
+	  (while (setq group (pop groups))
+	    (gnus-check-server
+	     (setq method (gnus-inews-group-method group)))
+	    (unless (gnus-request-group group nil method)
+	      (gnus-request-create-group group method))
+	    (save-excursion
+	      (nnheader-set-temp-buffer " *acc*")
+	      (insert-buffer-substring message-encoding-buffer)
+	      (gnus-run-hooks 'gnus-before-do-gcc-hook)
+	      (goto-char (point-min))
+	      (when (re-search-forward
+		     (concat "^" (regexp-quote mail-header-separator) "$")
+		     nil t)
+		(replace-match "" t t ))
+	      (unless (setq group-art
+			    (gnus-request-accept-article group method t t))
+		(gnus-message 1 "Couldn't store article in group %s: %s"
+			      group (gnus-status-message method))
+		(sit-for 2))
+	      (when (and group-art gnus-inews-mark-gcc-as-read)
+		(gnus-group-mark-article-read group (cdr group-art)))
+	      (kill-buffer (current-buffer)))))))))
 
 (defun gnus-inews-insert-gcc ()
   "Insert Gcc headers based on `gnus-outgoing-message-group'."
diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 8d573fb..8137349 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -568,7 +568,7 @@ The following commands are available:
        ["Read" gnus-browse-read-group t]
        ["Select" gnus-browse-select-group t]
        ["Next" gnus-browse-next-group t]
-       ["Prev" gnus-browse-next-group t]
+       ["Prev" gnus-browse-prev-group t]
        ["Exit" gnus-browse-exit t]))
     (gnus-run-hooks 'gnus-browse-menu-hook)))