Synch to Oort Gnus 200304301504.

diff --git a/ChangeLog b/ChangeLog
index de3db0d..852acb1 100644 (file)
--- 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 (file)
--- a/GNUS-NEWS
+++ b/GNUS-NEWS
@@ -8,6 +8,23 @@ For older news, see Gnus info node "New Features".
 \f
 * 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-04-30  Kai Gro\e,A_\e(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 (file)
--- 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 (file)
--- 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)