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