From: yamaoka <yamaoka>
Date: Wed, 30 Apr 2003 15:03:37 +0000 (+0000)
Subject: Synch to Oort Gnus 200304301504.
X-Git-Tag: t-gnus-6_15_21-00-quimby~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6b56940c7e3ae3aa094ef911ae26f83aaa6de4f0;p=elisp%2Fgnus.git-

Synch to Oort Gnus 200304301504.
---

diff --git a/ChangeLog b/ChangeLog
index de3db0d..852acb1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-30  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* GNUS-NEWS: Added Article Buttons.  Added Upgrading (from Simon
+	Josefsson).
+
 2003-04-30  Jesper Harder  <harder@ifa.au.dk>
 
 	* GNUS-NEWS: Additions.
diff --git a/GNUS-NEWS b/GNUS-NEWS
index 079fd00..242c25b 100644
--- a/GNUS-NEWS
+++ b/GNUS-NEWS
@@ -8,6 +8,23 @@ For older news, see Gnus info node "New Features".
 
 * Changes in Oort Gnus
 
+** Upgrading from previous (stable) version if you have used Oort.
+
+If you have tried Oort (the unstable Gnus branch leading to this
+release) but went back to a stable version, be careful when upgrading
+to this version.  In particular, you will probably want to remove all
+.marks (nnml) and .mrk (nnfolder) files, so that flags are read from
+your .newsrc.eld instead of from the .marks/.mrk file where this
+release store flags.  See a later entry for more information about
+marks.  Note that downgrading isn't save in general.
+
+** Article Buttons
+
+More buttons for URLs, mail addresses, Message-IDs, Info links, man pages and
+Emacs or Gnus related references, see the info node "Article Buttons".  The
+variables `gnus-button-*-level' can be used to control the appearance of all
+article buttons, see the info node "Article Button Levels".
+
 ** Dired integration
 `gnus-dired-minor-mode' installs key bindings in dired buffers to send
 a file as an attachment (`C-c C-a'), open a file using the approriate
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed5c282..5d94727 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-04-30  Kai Gro,A_(Bjohann  <kai.grossjohann@gmx.net>
+
+	* gnus-delay.el (gnus-delay-article): Call
+	`gnus-agent-queue-setup' to create the delay group.
+
+	* gnus-agent.el (gnus-agent-queue-setup): Support optional arg
+	for the (queue) group name.
+
 2003-04-30  Simon Josefsson  <jas@extundo.com>
 
 	* mm-util.el (mm-charset-to-coding-system): Use user specified
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 9879e11..247de0a 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -622,14 +622,18 @@ minor mode in all Gnus buffers."
 		       gnus-agent-covered-methods ))))
      (append (list gnus-select-method) gnus-secondary-select-methods))))
 
-(defun gnus-agent-queue-setup ()
-  "Make sure the queue group exists."
-  (unless (gnus-gethash "nndraft:queue" gnus-newsrc-hashtb)
-    (gnus-request-create-group "queue" '(nndraft ""))
+(defun gnus-agent-queue-setup (&optional group-name)
+  "Make sure the queue group exists.
+Optional arg GROUP-NAME allows to specify another group."
+  (unless (gnus-gethash (format "nndraft:%s" (or group-name "queue"))
+			gnus-newsrc-hashtb)
+    (gnus-request-create-group (or group-name "queue") '(nndraft ""))
     (let ((gnus-level-default-subscribed 1))
-      (gnus-subscribe-group "nndraft:queue" nil '(nndraft "")))
+      (gnus-subscribe-group (format "nndraft:%s" (or group-name "queue"))
+			    nil '(nndraft "")))
     (gnus-group-set-parameter
-     "nndraft:queue" 'gnus-dummy '((gnus-draft-mode)))))
+     (format "nndraft:%s" (or group-name "queue"))
+     'gnus-dummy '((gnus-draft-mode)))))
 
 (defun gnus-agent-send-mail ()
   (if gnus-plugged
diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index 4024a00..cc212fa 100644
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -134,10 +134,7 @@ DELAY is a string, giving the length of the time.  Possible values are:
   (set-buffer-modified-p t)
   ;; If group does not exist, create it.
   (let ((group (format "nndraft:%s" gnus-delay-group)))
-    (unless (gnus-gethash group gnus-newsrc-hashtb)
-      (nndraft-request-create-group gnus-delay-group)
-      ;; Make it active.
-      (gnus-set-active group (cons 1 0))))
+    (gnus-agent-queue-setup gnus-delay-group))
   (message-disassociate-draft)
   (nndraft-request-associate-buffer gnus-delay-group)
   (save-buffer 0)