* respooling patch give gnus-summary-move-article a default action
@ 1996-01-22 22:33 Greg Stark
0 siblings, 0 replies; only message in thread
From: Greg Stark @ 1996-01-22 22:33 UTC (permalink / raw)
The following patch makes respooling work, otherwise you get this:
Signalling: (error "Unknown action nil")
signal(error ("Unknown action nil"))
error("Unknown action %s" nil)
gnus-summary-move-article(nil nil nnml)
gnus-summary-respool-article(nil)
call-interactively(gnus-summary-respool-article)
--- gnus.el.~1~ Sat Jan 20 21:08:20 1996
+++ gnus.el Mon Jan 22 17:22:06 1996
@@ -10790,7 +10790,7 @@
For this function to work, both the current newsgroup and the
newsgroup that you want to move to have to support the `request-move'
and `request-accept' functions."
- (interactive (list current-prefix-arg nil nil 'move))
+ (interactive (list current-prefix-arg nil nil nil))
(gnus-set-global-variables)
;; Check whether the source group supports the required functions.
(cond ((and (eq action 'move)
@@ -10800,7 +10800,12 @@
((and (eq action 'crosspost)
(not (gnus-check-backend-function
'request-replace-article gnus-newsgroup-name)))
- (error "The current group does not support article editing")))
+ (error "The current group does not support article editing"))
+ ((null action)
+ (if (gnus-check-backend-function
+ 'request-move-article gnus-newsgroup-name)
+ (setq action 'move)
+ (setq action 'copy))))
(let ((articles (gnus-summary-work-articles n))
(prefix (gnus-group-real-prefix gnus-newsgroup-name))
(names '((move "move" "Moving")
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1996-01-22 22:33 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-01-22 22:33 respooling patch give gnus-summary-move-article a default action Greg Stark
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).