From e949156edac8845830a099a6bcd98b1995a768de Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Mon, 29 Nov 2010 07:55:15 -0500 Subject: [PATCH] nnir.el (nnir-request-move-article): Bail out if no move support in group. --- lisp/ChangeLog | 5 +++++ lisp/nnir.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fef502ca9..b5d6c9a0e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-11-29 Andrew Cohen + + * nnir.el (nnir-request-move-article): Bail out if original group + doesn't support article moves. + 2010-11-29 Lars Magne Ingebrigtsen * shr.el (shr-find-fill-point): Don't break before apostrophes. diff --git a/lisp/nnir.el b/lisp/nnir.el index e64374e9f..b49c99e6d 100644 --- a/lisp/nnir.el +++ b/lisp/nnir.el @@ -488,8 +488,7 @@ The category key for a member of the sequence is obtained as `(keyfunc member)' and the corresponding element is just `member'. If `valuefunc' is non-nil, the element of the list is `(valuefunc member)'." - `(if (null ,sequence) - nil + `(unless (null ,sequence) (let (value) (mapcar (lambda (member) @@ -642,6 +641,9 @@ is `(valuefunc member)'." (artsubject (mail-header-subject (gnus-data-header (assoc article (gnus-data-list nil)))))) + (unless (gnus-check-backend-function + 'request-move-article artfullgroup) + (error "The group %s does not support article moving" artfullgroup)) (setq gnus-newsgroup-original-name artfullgroup) (string-match "^\\[[0-9]+:.+/[0-9]+\\] " artsubject) (setq gnus-article-original-subject (substring artsubject (match-end 0))) -- 2.25.1