/[emacs]/emacs/lisp/gnus/gnus-sum.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-sum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.71 by miles, Tue Sep 13 20:30:44 2005 UTC revision 1.72 by rfrancoise, Sat Sep 24 13:46:19 2005 UTC
# Line 7696  articles that are younger than AGE days. Line 7696  articles that are younger than AGE days.
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)
# Line 9218  latter case, they will be copied into th Line 9218  latter case, they will be copied into th
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
# Line 11044  save those articles instead." Line 11044  save those articles instead."
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))

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26