Mercurial > emacs
annotate lisp/gnus/messcompat.el @ 107777:13c077500eb3
2010-04-04 John Wiegley <jwiegley@gmail.com>
* ido.el (ido-use-virtual-buffers): New variable to indicate
whether "virtual buffer" support is enabled for IDO. Essentially
it works as follows: Say you are visiting a file and the buffer
gets cleaned up by mignight.el. Later, you want to switch to that
buffer, but find it's no longer open. With virtual buffers
enabled, the buffer name stays in the buffer list (using the
ido-virtual face, and always at the end), and if you select it, it
opens the file back up again. This allows you to think less about
whether recently opened files are still open or not. Most of the
time you can quit Emacs, restart, and then switch to a file buffer
that was previously open as if it still were. NOTE: This feature
has been present in iswitchb for several years now, and I'm
porting the same logic to IDO.
(ido-virtual): Face used to indicate virtual buffers in the list.
(ido-buffer-internal): If a buffer is chosen, and no such buffer
exists, but a virtual buffer of that name does (which would be why
it was in the list), recreate the buffer by reopening the file.
(ido-make-buffer-list): If virtual buffers are being used, call
`ido-add-virtual-buffers-to-list' before the make list hook.
(ido-virtual-buffers): New variable which contains a copy of the
current contents of the `recentf-list', albeit pared down for the
sake of speed, and with proper faces applied.
(ido-add-virtual-buffers-to-list): Using the `recentf-list',
create a list of "virtual buffers" to present to the user in
addition to the currently open set. Note that this logic could
get rather slow if that list is too large. With the default
`recentf-max-saved-items' of 200, there is little speed penalty.
author | jwiegley@gmail.com |
---|---|
date | Sun, 04 Apr 2010 02:55:19 -0400 |
parents | 1d1d5d9bd884 |
children | 8d09094063d0 376148b31b5e |
rev | line source |
---|---|
17493 | 1 ;;; messcompat.el --- making message mode compatible with mail mode |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2 |
74547 | 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
17493 | 5 |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
17493 | 7 ;; Keywords: mail, news |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17493 | 12 ;; it under the terms of the GNU General Public License as published by |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
17493 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
17493 | 19 ;; GNU General Public License for more details. |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17493 | 23 |
24 ;;; Commentary: | |
25 | |
48588 | 26 ;; This file tries to provide backward compatibility with sendmail.el |
17493 | 27 ;; for Message mode. It should be used by simply adding |
28 ;; | |
29 ;; (require 'messcompat) | |
30 ;; | |
31 ;; to the .emacs file. Loading it after Message mode has been | |
32 ;; loaded will have no effect. | |
33 | |
34 ;;; Code: | |
35 | |
36 (require 'sendmail) | |
37 | |
38 (defvar message-from-style mail-from-style | |
39 "*Specifies how \"From\" headers look. | |
40 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
41 If nil, they contain just the return address like: |
17493 | 42 king@grassland.com |
43 If `parens', they look like: | |
44 king@grassland.com (Elvis Parsley) | |
45 If `angles', they look like: | |
46 Elvis Parsley <king@grassland.com> | |
47 | |
48 Otherwise, most addresses look like `angles', but they look like | |
49 `parens' if `angles' would need quoting and `parens' would not.") | |
50 | |
51 (defvar message-interactive mail-interactive | |
52 "Non-nil means when sending a message wait for and display errors. | |
53 nil means let mailer mail back a message to report errors.") | |
54 | |
55 (defvar message-setup-hook mail-setup-hook | |
56 "Normal hook, run each time a new outgoing message is initialized. | |
57 The function `message-setup' runs this hook.") | |
58 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
59 (if (boundp 'mail-mode-hook) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
60 (defvar message-mode-hook mail-mode-hook |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
61 "Hook run in message mode buffers.")) |
17493 | 62 |
63 (defvar message-indentation-spaces mail-indentation-spaces | |
64 "*Number of spaces to insert at the beginning of each cited line. | |
65 Used by `message-yank-original' via `message-yank-cite'.") | |
66 | |
67 (defvar message-signature mail-signature | |
68 "*String to be inserted at the end of the message buffer. | |
69 If t, the `message-signature-file' file will be inserted instead. | |
70 If a function, the result from the function will be used instead. | |
71 If a form, the result from the form will be used instead.") | |
72 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
73 ;; Deleted the autoload cookie because this crashes in loaddefs.el. |
17493 | 74 (defvar message-signature-file mail-signature-file |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
75 "*File containing the text inserted at end of the message buffer.") |
17493 | 76 |
77 (defvar message-default-headers mail-default-headers | |
78 "*A string containing header lines to be inserted in outgoing messages. | |
79 It is inserted before you edit the message, so you can edit or delete | |
80 these lines.") | |
81 | |
82 (defvar message-send-hook mail-send-hook | |
83 "Hook run before sending messages.") | |
84 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
85 (defvar message-send-mail-function send-mail-function |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
86 "Function to call to send the current buffer as mail. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
87 The headers should be delimited by a line whose contents match the |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
88 variable `mail-header-separator'.") |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19497
diff
changeset
|
89 |
17493 | 90 (provide 'messcompat) |
91 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79708
diff
changeset
|
92 ;; arch-tag: a76673be-905e-4bbd-8966-615370494a7b |
17493 | 93 ;;; messcompat.el ends here |