diff options
| author | Richard M. Stallman | 1998-10-10 14:06:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-10-10 14:06:14 +0000 |
| commit | 7163b71c975286b0c98ffb9b5fd7e5709cde7990 (patch) | |
| tree | a0c537715bebced265b7c151f7aebca30d6f0a39 | |
| parent | 49cd149a22d82e22f0f293babc64b3e356410e02 (diff) | |
| download | emacs-7163b71c975286b0c98ffb9b5fd7e5709cde7990.tar.gz emacs-7163b71c975286b0c98ffb9b5fd7e5709cde7990.zip | |
(feedmail-queue-runner-is-active): Definition moved.
| -rw-r--r-- | lisp/mail/feedmail.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 27ba0ab4152..e2c1e7e0480 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -1117,6 +1117,15 @@ the file without bothering you." | |||
| 1117 | (defvar feedmail-address-list nil) | 1117 | (defvar feedmail-address-list nil) |
| 1118 | 1118 | ||
| 1119 | 1119 | ||
| 1120 | (defvar feedmail-queue-runner-is-active nil | ||
| 1121 | "*Non-nil means we're inside the logic of the queue-running loop. | ||
| 1122 | That is, iterating over all messages in the queue to send them. In | ||
| 1123 | that case, the value is the name of the queued message file currently | ||
| 1124 | being processed. This can be used for differentiating customized code | ||
| 1125 | for different scenarios. Users shouldn't set or change this | ||
| 1126 | variable, but may depend on its value as described here.") | ||
| 1127 | |||
| 1128 | |||
| 1120 | (defun feedmail-mail-send-hook-splitter () | 1129 | (defun feedmail-mail-send-hook-splitter () |
| 1121 | "Facilitate dividing mail-send-hook things into queued and immediate cases. | 1130 | "Facilitate dividing mail-send-hook things into queued and immediate cases. |
| 1122 | If you have mail-send-hook functions that should only be called for sending/ | 1131 | If you have mail-send-hook functions that should only be called for sending/ |
| @@ -1262,15 +1271,6 @@ function, for example, to archive all of your sent messages someplace | |||
| 1262 | ) | 1271 | ) |
| 1263 | 1272 | ||
| 1264 | 1273 | ||
| 1265 | (defvar feedmail-queue-runner-is-active nil | ||
| 1266 | "*Non-nil means we're inside the logic of the queue-running loop. | ||
| 1267 | That is, iterating over all messages in the queue to send them. In | ||
| 1268 | that case, the value is the name of the queued message file currently | ||
| 1269 | being processed. This can be used for differentiating customized code | ||
| 1270 | for different scenarios. Users shouldn't set or change this | ||
| 1271 | variable, but may depend on its value as described here.") | ||
| 1272 | |||
| 1273 | |||
| 1274 | (defvar feedmail-is-a-resend nil | 1274 | (defvar feedmail-is-a-resend nil |
| 1275 | "*Non-nil means the the message is a Resend (in the RFC-822 sense). | 1275 | "*Non-nil means the the message is a Resend (in the RFC-822 sense). |
| 1276 | This affects the composition of certain headers. feedmail sets this | 1276 | This affects the composition of certain headers. feedmail sets this |