Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-mh.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; gnus-mh.el --- mh-e interface for Gnus 1 ;;; gnus-mh.el --- mh-e interface for Gnus
2 ;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc. 2 ;; Copyright (C) 1994,95,96 Free Software Foundation, Inc.
3 3
4 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 4 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
5 ;; Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 5 ;; Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
6 ;; Keywords: news 6 ;; Keywords: news
7 7
31 ;; (Yoshikatsu Kawabe), and shingu@casund.cpr.canon.co.jp (Toshiaki 31 ;; (Yoshikatsu Kawabe), and shingu@casund.cpr.canon.co.jp (Toshiaki
32 ;; SHINGU). 32 ;; SHINGU).
33 33
34 ;;; Code: 34 ;;; Code:
35 35
36 (require 'gnus)
37 (require 'mh-e) 36 (require 'mh-e)
38 (require 'mh-comp) 37 (require 'mh-comp)
38 (require 'gnus)
39 (require 'gnus-msg) 39 (require 'gnus-msg)
40 (require 'gnus-sum) 40 (eval-when-compile (require 'cl))
41 41
42 (defun gnus-summary-save-article-folder (&optional arg) 42 (defun gnus-summary-save-article-folder (&optional arg)
43 "Append the current article to an mh folder. 43 "Append the current article to an mh folder.
44 If N is a positive number, save the N next articles. 44 If N is a positive number, save the N next articles.
45 If N is a negative number, save the N previous articles. 45 If N is a negative number, save the N previous articles.
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)))