Mercurial > emacs
comparison lisp/mail/feedmail.el @ 23409:b9c1f9b1dac9
(feedmail-queue-runner-is-active): Definition moved.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 10 Oct 1998 14:06:14 +0000 |
parents | 92177ff080cc |
children | 6dc236826c61 |
comparison
equal
deleted
inserted
replaced
23408:063b2599a0fd | 23409:b9c1f9b1dac9 |
---|---|
1115 (defvar feedmail-prepped-text-buffer nil) | 1115 (defvar feedmail-prepped-text-buffer nil) |
1116 (defvar feedmail-raw-text-buffer nil) | 1116 (defvar feedmail-raw-text-buffer nil) |
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/ |
1123 queueing messages or only be called for the sending of queued messages, this is | 1132 queueing messages or only be called for the sending of queued messages, this is |
1124 for you. Add this function to mail-send-hook with something like this: | 1133 for you. Add this function to mail-send-hook with something like this: |
1258 function, for example, to archive all of your sent messages someplace | 1267 function, for example, to archive all of your sent messages someplace |
1259 \(though there are better ways to get that particular result\)." | 1268 \(though there are better ways to get that particular result\)." |
1260 :group 'feedmail-queue | 1269 :group 'feedmail-queue |
1261 :type 'function | 1270 :type 'function |
1262 ) | 1271 ) |
1263 | |
1264 | |
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 | 1272 |
1273 | 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 |