Mercurial > emacs
annotate lisp/mail/mbox-trunk-annotations/rmailmsc.el.annotation @ 98055:04b7a6119a88
(diff-find-source-location): Declare.
(find-change-log): If called from a diff buffer, try to switch to the
source buffer (e.g. to respect change-log-default-name there).
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 06 Sep 2008 19:38:35 +0000 |
parents | 513ae63d6175 |
children |
rev | line source |
---|---|
97531
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
1 1.2 (eric 30-May-92): ;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
2 1.2 (eric 30-May-92): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
3 1.18 (gm 09-Dec-06): ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
4 1.22 (miles 08-Jan-08): ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
5 1.5 (eric 22-Jul-92): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
6 1.3 (eric 16-Jul-92): ;; Maintainer: FSF |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
7 1.4 (eric 17-Jul-92): ;; Keywords: mail |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
8 1.1 (jimb 31-Oct-89): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
9 1.1 (jimb 31-Oct-89): ;; This file is part of GNU Emacs. |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
10 1.1 (jimb 31-Oct-89): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
11 1.24 (gm 06-May-08): ;; GNU Emacs is free software: you can redistribute it and/or modify |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
12 1.1 (jimb 31-Oct-89): ;; it under the terms of the GNU General Public License as published by |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
13 1.24 (gm 06-May-08): ;; the Free Software Foundation, either version 3 of the License, or |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
14 1.24 (gm 06-May-08): ;; (at your option) any later version. |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
15 1.1 (jimb 31-Oct-89): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
16 1.1 (jimb 31-Oct-89): ;; GNU Emacs is distributed in the hope that it will be useful, |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
17 1.1 (jimb 31-Oct-89): ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
18 1.1 (jimb 31-Oct-89): ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
19 1.1 (jimb 31-Oct-89): ;; GNU General Public License for more details. |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
20 1.1 (jimb 31-Oct-89): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
21 1.1 (jimb 31-Oct-89): ;; You should have received a copy of the GNU General Public License |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
22 1.24 (gm 06-May-08): ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
23 1.1 (jimb 31-Oct-89): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
24 1.12 (pj 15-Jul-01): ;;; Commentary: |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
25 1.12 (pj 15-Jul-01): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
26 1.6 (eric 17-Mar-93): ;;; Code: |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
27 1.1 (jimb 31-Oct-89): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
28 1.16 (lektu 29-Aug-05): (defvar rmail-current-message) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
29 1.16 (lektu 29-Aug-05): (defvar rmail-inbox-list) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
30 1.16 (lektu 29-Aug-05): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
31 1.21 (dann 25-Nov-07): (declare-function rmail-parse-file-inboxes "rmail" ()) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
32 1.21 (dann 25-Nov-07): (declare-function rmail-show-message "rmail" (&optional n no-summary)) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
33 1.21 (dann 25-Nov-07): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
34 1.10 (rms 27-Sep-96): ;;;###autoload |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
35 1.1 (jimb 31-Oct-89): (defun set-rmail-inbox-list (file-name) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
36 1.1 (jimb 31-Oct-89): "Set the inbox list of the current RMAIL file to FILE-NAME. |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
37 1.8 (rms 06-Sep-94): You can specify one file name, or several names separated by commas. |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
38 1.8 (rms 06-Sep-94): If FILE-NAME is empty, remove any existing inbox list." |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
39 1.1 (jimb 31-Oct-89): (interactive "sSet mailbox list to (comma-separated list of filenames): ") |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
40 1.11 (rms 08-Aug-98): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
41 1.11 (rms 08-Aug-98): (unless (eq major-mode 'rmail-mode) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
42 1.11 (rms 08-Aug-98): (error "set-rmail-inbox-list works only for an Rmail file")) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
43 1.11 (rms 08-Aug-98): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
44 1.1 (jimb 31-Oct-89): (save-excursion |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
45 1.1 (jimb 31-Oct-89): (let ((names (rmail-parse-file-inboxes)) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
46 1.1 (jimb 31-Oct-89): (standard-output nil)) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
47 1.1 (jimb 31-Oct-89): (if (or (not names) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
48 1.1 (jimb 31-Oct-89): (y-or-n-p (concat "Replace " |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
49 1.1 (jimb 31-Oct-89): (mapconcat 'identity names ", ") |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
50 1.1 (jimb 31-Oct-89): "? "))) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
51 1.1 (jimb 31-Oct-89): (let ((buffer-read-only nil)) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
52 1.1 (jimb 31-Oct-89): (widen) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
53 1.1 (jimb 31-Oct-89): (goto-char (point-min)) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
54 1.1 (jimb 31-Oct-89): (search-forward "\n\^_") |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
55 1.1 (jimb 31-Oct-89): (re-search-backward "^Mail" nil t) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
56 1.1 (jimb 31-Oct-89): (forward-line 0) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
57 1.1 (jimb 31-Oct-89): (if (looking-at "Mail:") |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
58 1.1 (jimb 31-Oct-89): (delete-region (point) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
59 1.1 (jimb 31-Oct-89): (progn (forward-line 1) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
60 1.1 (jimb 31-Oct-89): (point)))) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
61 1.1 (jimb 31-Oct-89): (if (not (string= file-name "")) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
62 1.7 (rms 18-Jun-94): (insert-before-markers "Mail: " file-name "\n")))))) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
63 1.1 (jimb 31-Oct-89): (setq rmail-inbox-list (rmail-parse-file-inboxes)) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
64 1.1 (jimb 31-Oct-89): (rmail-show-message rmail-current-message)) |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
65 1.2 (eric 30-May-92): |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
66 1.23 (monnier 10-Apr-08): ;; arch-tag: 74ed1d50-2c25-4cbd-b5ae-d29ed8aba6e4 |
513ae63d6175
Temporary convenience files supporting the Rmail/mbox merge to the
Paul Reilly <pmr@pajato.com>
parents:
diff
changeset
|
67 1.2 (eric 30-May-92): ;;; rmailmsc.el ends here |