Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-mh.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 376386a54a3c
children ec9a17fef872
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; gnus-mh.el --- mh-e interface for Gnus 1 ;;; gnus-mh.el --- mh-e interface for Gnus
2 ;; Copyright (C) 1994,95,96 Free Software Foundation, Inc. 2 ;; Copyright (C) 1994,95,96,97 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)
36 (require 'mh-e) 37 (require 'mh-e)
37 (require 'mh-comp) 38 (require 'mh-comp)
38 (require 'gnus)
39 (require 'gnus-msg) 39 (require 'gnus-msg)
40 (eval-when-compile (require 'cl)) 40 (require 'gnus-sum)
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.