Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-mh.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children 360340f9fd5f
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
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.