Mercurial > emacs

comparison lisp/mail/rmailkwd.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 71b644d983a9
children b6b65e7ea49f
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs 1 ;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs
2 2
3 ;; Copyright (C) 1985, 1988, 1994, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1988, 1994, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc.
4 5
5 ;; Maintainer: FSF 6 ;; Maintainer: FSF
6 ;; Keywords: mail 7 ;; Keywords: mail
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 19 ;; GNU General Public License for more details.
19 20
20 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02110-1301, USA.
24 25
25 ;;; Commentary: 26 ;;; Commentary:
26 27
27 ;; This library manages keywords (labels). Labels are stored in the 28 ;; This library manages keywords (labels). Labels are stored in the
28 ;; variable `rmail-keywords'. 29 ;; variable `rmail-keywords'.
29 30
30 ;;; Code: 31 ;;; Code:
32
33 (defvar rmail-buffer)
34 (defvar rmail-current-message)
35 (defvar rmail-last-label)
36 (defvar rmail-last-multi-labels)
37 (defvar rmail-summary-vector)
38 (defvar rmail-total-messages)
31 39
32 ;; Global to all RMAIL buffers. It exists primarily for the sake of 40 ;; Global to all RMAIL buffers. It exists primarily for the sake of
33 ;; completion. It is better to use strings with the label functions 41 ;; completion. It is better to use strings with the label functions
34 ;; and let them worry about making the label. 42 ;; and let them worry about making the label.
35 43
227 (if (< n 0) 235 (if (< n 0)
228 (message "No previous message with labels %s" labels)) 236 (message "No previous message with labels %s" labels))
229 (if (> n 0) 237 (if (> n 0)
230 (message "No following message with labels %s" labels)))) 238 (message "No following message with labels %s" labels))))
231 239
240 ;;; arch-tag: b26b3392-99ca-4e1d-933a-dab59b04e9a8
232 ;;; rmailkwd.el ends here 241 ;;; rmailkwd.el ends here