Lines Matching +defs:message +defs:send +defs:mail +defs:function
112 (defcustom gnus-agent-confirmation-function 'y-or-n-p
116 :type 'function)
121 ;; If the default switches to something else than nil, then the function
164 The function will split its article fetches into chunks smaller than
199 (defcustom gnus-agent-queue-mail t
200 "Whether and when outgoing mail should be queued by the agent.
201 When `always', always queue outgoing mail. When nil, never
209 (defcustom gnus-agent-prompt-send-queue nil
210 "If non-nil, `gnus-group-send-queue' will prompt if called when
242 2) The function `gnus-agent-regenerate' may destructively modify the value.")
251 (defvar gnus-agent-send-mail-function nil)
459 (put 'gnus-agent-with-fetch 'lisp-indent-function 0)
465 (defmacro gnus-agent-message (level &rest args)
467 (message ,@args)))
515 "JS" gnus-group-send-queue
530 ["Send queue" gnus-group-send-queue gnus-plugged]
624 (put 'gnus-agent-while-plugged 'lisp-indent-function 0)
658 The gnus-agentize function is now called internally by gnus when
663 `message-send-mail-real-function' variables, and install the Gnus agent
668 (unless gnus-agent-send-mail-function
669 (setq gnus-agent-send-mail-function
670 (or message-send-mail-real-function
671 (function (lambda () (funcall message-send-mail-function))))
672 message-send-mail-real-function 'gnus-agent-send-mail))
678 (gnus-message 3 "First time agent user, agentizing remote groups...")
703 (defun gnus-agent-send-mail ()
704 (if (or (not gnus-agent-queue-mail)
705 (and gnus-plugged (not (eq gnus-agent-queue-mail 'always))))
706 (funcall gnus-agent-send-mail-function)
709 (concat "^" (regexp-quote mail-header-separator) "\n"))
711 (gnus-agent-insert-meta-information 'mail)
715 "Insert meta-information into the message that says how it's to be posted.
716 TYPE can be either `mail' or `news'. If the latter, then METHOD can
719 (message-remove-header gnus-agent-meta-information-header)
738 (message-narrow-to-headers)
739 (let* ((gcc (mail-fetch-field "gcc" nil t))
742 (message-unquote-tokens
743 (message-tokenize-header
788 (gnus-message 5 "Fetching %s...done" group)))))
850 (gnus-message
854 (gnus-message
869 file (error-message-string err)))))))
957 (gnus-message 1 "Entered %s into the Agent" server)))
976 (gnus-message 1 "Removed %s from the agent" server)))
1002 (gnus-message 1 "Ignoring disappeared server `%s'" server))))
1043 (gnus-message 7 "No more articles"))
1092 (mail-header-number h))
1433 (defun gnus-agent-get-function (method)
1498 (mail-header-number header)
1512 (let ((char-size (mail-header-chars
1520 (max (* 65 (mail-header-lines
1541 (gnus-message 7 "Fetching articles for %s..." group)
1546 (if (gnus-check-backend-function 'retrieve-articles group)
1551 (gnus-message 10 "Fetching article %s for %s..."
1604 (gnus-message 7 ""))
1671 (gnus-message 1 "Created backup copy of overview in %s." name)))
1697 (gnus-message 1
1704 (gnus-message 1
1710 (gnus-message 1 "Overview buffer not sorted!")
1770 (gnus-decode-encoded-word-function 'identity)
1820 (gnus-message
1829 (gnus-message 7 "Fetching headers for %s..." group)
1861 ;; It is unfortunate but the read function quietly overflows
1899 `nntp-server-buffer'. This function can be used, when file
2158 (gnus-message 3 "Warning - invalid agent local: %s on line %d: %s"
2159 file line (error-message-string err))))
2249 "Show error message and return t."
2250 (gnus-message 1 msg)
2258 (let ((gnus-agent-confirmation-function 'gnus-agent-batch-confirmation))
2289 (unless (funcall gnus-agent-confirmation-function
2291 (error-message-string err)))
2295 (unless (funcall gnus-agent-confirmation-function
2298 (error-message-string err)))
2303 (gnus-message 6 "Finished fetching articles into the Gnus agent"))))
2395 (let ((num (mail-header-number gnus-headers)))
2816 (if (not (equal (mail-header-references gnus-headers) ""))
2818 (let ((string (gnus-simplify-subject (mail-header-subject gnus-headers))))
2825 (< (mail-header-lines gnus-headers) gnus-agent-short-article))
2829 (> (mail-header-lines gnus-headers) gnus-agent-long-article))
2841 (gnus-member-of-range (mail-header-number gnus-headers)
2844 (defun gnus-category-make-function (predicate)
2845 "Make a function from PREDICATE."
2846 (let ((func (gnus-category-make-function-1 predicate)))
2860 (defun gnus-category-make-function-1 (predicate)
2861 "Make a function from PREDICATE."
2877 ,@(mapcar 'gnus-category-make-function-1 (cdr predicate))))
2882 "Return the function implementing PREDICATE."
2884 (let ((func (gnus-category-make-function predicate)))
2895 (eq t (gnus-function-implies-unread-1
2896 (gnus-category-make-function-1 predicate))))
2898 (defun gnus-function-implies-unread-1 (function)
2899 "Recursively evaluate a predicate function to determine whether it can select
2900 any read articles. Returns t if the function is known to never
2902 articles, and t_nil when the function may return both read and unread
2904 (let ((func (car function))
2905 (args (mapcar 'gnus-function-implies-unread-1 (cdr function))))
2944 (error "Unknown predicate function: %s" function)))))
2961 If you want to force expiring of certain articles, this function can
3007 (gnus-message 4 (gnus-agent-expire-done-message)))))
3010 ;; Internal function - requires caller to have set
3023 (gnus-message 5 "Expiry skipping over %s" group)
3024 (gnus-message 5 "Expiring articles in %s" group)
3050 ;; All articles are marked read by function
3075 ;; All articles are unmarked by function
3132 (gnus-message 7 "gnus-agent-expire: Loading overview...")
3146 (gnus-message 1 "gnus-agent-expire: read error \
3153 (gnus-message
3160 (gnus-message 7 "gnus-agent-expire: Sorting entries... ")
3179 (gnus-message 7 "gnus-agent-expire: Sorting entries... Done")
3180 (gnus-message 7 "gnus-agent-expire: Merging entries... ")
3199 (gnus-message 7 "gnus-agent-expire: Merging entries... Done")
3208 message-log-max)
3211 (gnus-message 7 "%3d%% completed..." completed)))
3221 (gnus-agent-message 10
3229 (gnus-agent-message 3 "gnus-agent-expire cleared \
3233 (gnus-message 1 "gnus-agent-expire detected a \
3301 (gnus-agent-message 8 "gnus-agent-expire: %s:%d: %s"
3305 (gnus-agent-message
3348 If you want to force expiring of certain articles, this function can
3394 (gnus-message 4 (gnus-agent-expire-done-message))))))
3396 (defun gnus-agent-expire-done-message ()
3436 (function
3480 (function
3499 "Start Gnus, send queue and fetch session."
3504 (let ((gnus-agent-confirmation-function 'gnus-agent-batch-confirmation))
3505 (gnus-group-send-queue)
3573 (let ((gnus-decode-encoded-word-function 'identity)
3739 (message "Mark as unread: (n)one / (a)ll / all (d)ownloaded articles? (n) ")
3748 (gnus-message 3 "Ignoring unexpected input")
3752 (gnus-message 5 "Regenerating in %s" group)
3792 (gnus-message 4 "gnus-agent-regenerate-group: NOV\
3797 (gnus-message 3 "gnus-agent-regenerate-group: NOV\
3804 (gnus-message 4 "gnus-agent-regenerate-group: NOV\
3809 (gnus-message 1 "gnus-agent-regenerate-group: NOV\
3814 (gnus-message 5 "gnus-agent-regenerate-group: Sorting NOV\
3828 (gnus-message 3 "Regenerating NOV %s %d..." group
3835 (mail-header-set-number header (car downloaded))
3931 (delq nil (mapcar (function (lambda (c)
3943 (gnus-message 5 "")
3952 (gnus-message 4 "Regenerating Gnus agent files...")
3957 (gnus-message 4 "Regenerating Gnus agent files...done")
3982 (message "Turn %s:%s from %s to %s." (car method) (cadr method)