7696 |
(gnus-completing-read-with-default |
(gnus-completing-read-with-default |
7697 |
(symbol-name (car gnus-extra-headers)) |
(symbol-name (car gnus-extra-headers)) |
7698 |
(if current-prefix-arg |
(if current-prefix-arg |
7699 |
"Exclude extra header:" |
"Exclude extra header" |
7700 |
"Limit extra header:") |
"Limit extra header") |
7701 |
(mapcar (lambda (x) |
(mapcar (lambda (x) |
7702 |
(cons (symbol-name x) x)) |
(cons (symbol-name x) x)) |
7703 |
gnus-extra-headers) |
gnus-extra-headers) |
9218 |
gnus-newsgroup-name))))) |
gnus-newsgroup-name))))) |
9219 |
(method |
(method |
9220 |
(gnus-completing-read-with-default |
(gnus-completing-read-with-default |
9221 |
methname "What backend do you want to use when respooling?" |
methname "Backend to use when respooling" |
9222 |
methods nil t nil 'gnus-mail-method-history)) |
methods nil t nil 'gnus-mail-method-history)) |
9223 |
ms) |
ms) |
9224 |
(cond |
(cond |
11044 |
(let* ((split-name (gnus-get-split-value gnus-move-split-methods)) |
(let* ((split-name (gnus-get-split-value gnus-move-split-methods)) |
11045 |
(minibuffer-confirm-incomplete nil) ; XEmacs |
(minibuffer-confirm-incomplete nil) ; XEmacs |
11046 |
(prom |
(prom |
11047 |
(format "%s %s to:" |
(format "%s %s to" |
11048 |
prompt |
prompt |
11049 |
(if (> (length articles) 1) |
(if (> (length articles) 1) |
11050 |
(format "these %d articles" (length articles)) |
(format "these %d articles" (length articles)) |