From 6b56940c7e3ae3aa094ef911ae26f83aaa6de4f0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 30 Apr 2003 15:03:37 +0000 Subject: [PATCH] Synch to Oort Gnus 200304301504. --- ChangeLog | 5 +++++ GNUS-NEWS | 17 +++++++++++++++++ lisp/ChangeLog | 8 ++++++++ lisp/gnus-agent.el | 16 ++++++++++------ lisp/gnus-delay.el | 5 +---- 5 files changed, 41 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index de3db0d..852acb1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-04-30 Reiner Steib + + * GNUS-NEWS: Added Article Buttons. Added Upgrading (from Simon + Josefsson). + 2003-04-30 Jesper Harder * 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 + + * 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 * 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) -- 1.7.10.4