Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-mh.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
57 (let ((folder 57 (let ((folder
58 (cond ((and (eq folder 'default) 58 (cond ((and (eq folder 'default)
59 gnus-newsgroup-last-folder) 59 gnus-newsgroup-last-folder)
60 gnus-newsgroup-last-folder) 60 gnus-newsgroup-last-folder)
61 (folder folder) 61 (folder folder)
62 (t (mh-prompt-for-folder 62 (t (mh-prompt-for-folder
63 "Save article in" 63 "Save article in"
64 (funcall gnus-folder-save-name gnus-newsgroup-name 64 (funcall gnus-folder-save-name gnus-newsgroup-name
65 gnus-current-headers gnus-newsgroup-last-folder) 65 gnus-current-headers gnus-newsgroup-last-folder)
66 t)))) 66 t))))
67 (errbuf (get-buffer-create " *Gnus rcvstore*")) 67 (errbuf (get-buffer-create " *Gnus rcvstore*"))
69 (exec-path (if mh-lib (cons mh-lib exec-path) exec-path))) 69 (exec-path (if mh-lib (cons mh-lib exec-path) exec-path)))
70 (gnus-eval-in-buffer-window gnus-original-article-buffer 70 (gnus-eval-in-buffer-window gnus-original-article-buffer
71 (save-restriction 71 (save-restriction
72 (widen) 72 (widen)
73 (unwind-protect 73 (unwind-protect
74 (call-process-region 74 (call-process-region
75 (point-min) (point-max) "rcvstore" nil errbuf nil folder) 75 (point-min) (point-max) "rcvstore" nil errbuf nil folder)
76 (set-buffer errbuf) 76 (set-buffer errbuf)
77 (if (zerop (buffer-size)) 77 (if (zerop (buffer-size))
78 (message "Article saved in folder: %s" folder) 78 (message "Article saved in folder: %s" folder)
79 (message "%s" (buffer-string))) 79 (message "%s" (buffer-string)))