diff options
author | Stefan Kangas <stefan@marxist.se> | 2020-12-30 12:38:20 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2020-12-30 12:44:19 +0100 |
commit | dd662fc972a75df71cdaa25a2d763d1592df1eb8 (patch) | |
tree | 08f21b2dbe607561014d38d2219d55ad64d695c3 /lisp/mail/feedmail.el | |
parent | d0a254398609262dc5e6960655a7818f21a24447 (diff) | |
download | emacs-dd662fc972a75df71cdaa25a2d763d1592df1eb8.tar.gz emacs-dd662fc972a75df71cdaa25a2d763d1592df1eb8.tar.bz2 emacs-dd662fc972a75df71cdaa25a2d763d1592df1eb8.zip |
Fix some over-wide docstrings
* lisp/cedet/semantic/analyze/refs.el
(semantic-analyze-refs-proto)
(semantic-analyze-refs-impl):
* lisp/cedet/semantic/symref.el
(semantic-symref-hit-to-tag-via-buffer):
* lisp/emacs-lisp/chart.el (chart-axis-draw):
* lisp/emacs-lisp/cl-macs.el (cl-defstruct, cl-loop):
* lisp/emacs-lisp/eieio-core.el (eieio--add-new-slot):
* lisp/eshell/em-unix.el (eshell/info):
* lisp/gnus/deuglify.el (gnus-outlook-rearrange-article):
* lisp/gnus/gnus-agent.el (gnus-agent-read-article-number):
* lisp/gnus/gnus-util.el (gnus-put-overlay-excluding-newlines)
(gnus-put-text-property-excluding-newlines):
* lisp/gnus/message.el (message-sort-headers):
* lisp/gnus/nntp.el (nntp-with-open-group)
(nntp-with-open-group-function):
* lisp/gnus/nnvirtual.el (nnvirtual-create-mapping):
* lisp/mail/feedmail.el (feedmail-fiddle-list-of-fiddle-plexes)
(feedmail-queue-reminder, feedmail-mail-send-hook-splitter):
* lisp/net/dictionary.el (dictionary-do-matching):
* lisp/obsolete/longlines.el (longlines-auto-wrap):
* lisp/org/ob-sql.el (org-babel-sql-dbstring-vertica):
* lisp/org/ol-bbdb.el (org-bbdb-date-list):
* lisp/progmodes/cc-cmds.el (c-mark-function):
* lisp/progmodes/cperl-mode.el (cperl-add-tags-recurse)
(cperl-add-tags-recurse-noxs-fullpath)
(cperl-add-tags-recurse-noxs):
* lisp/progmodes/etags.el (tags-search):
* lisp/progmodes/verilog-mode.el (verilog-delete-auto-buffer)
(verilog-auto-re-search-do, verilog-expand-vector-internal):
* lisp/textmodes/reftex-parse.el (reftex-init-section-numbers):
* lisp/textmodes/reftex-toc.el
(reftex-toc-load-all-files-for-promotion):
* lisp/textmodes/sgml-mode.el (html-mode):
* lisp/textmodes/table.el (table--transcoord-cache-to-table)
(table--transcoord-table-to-cache, table--remove-eol-spaces)
(table--region-in-cell-p, table-goto-bottom-right-corner)
(table-split-cell-horizontally):
* lisp/url/url-handlers.el (url-insert):
* lisp/vc/ediff-util.el (ediff-inferior-compare-regions): Fix doc
strings to not exceed 80-column limits. (Bug#44858)
Diffstat (limited to 'lisp/mail/feedmail.el')
-rw-r--r-- | lisp/mail/feedmail.el | 34 |
1 files changed, 19 insertions, 15 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index ce5a57e2283..2bcbdf4a223 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -1341,19 +1341,22 @@ variable, but may depend on its value as described here.") (defun feedmail-mail-send-hook-splitter () "Facilitate dividing `mail-send-hook' things into queued and immediate cases. -If you have `mail-send-hook' functions that should only be called for sending/ -queueing messages or only be called for the sending of queued messages, this is -for you. Add this function to `mail-send-hook' with something like this: +If you have `mail-send-hook' functions that should only be called +for sending/ queueing messages or only be called for the sending +of queued messages, this is for you. Add this function to +`mail-send-hook' with something like this: (add-hook \\='mail-send-hook \\='feedmail-mail-send-hook-splitter) -Then add the functions you want called to either `feedmail-mail-send-hook-queued' -or `feedmail-mail-send-hook', as appropriate. The distinction is that -`feedmail-mail-send-hook' will be called when you send mail from a composition -buffer (typically by typing C-c C-c), whether the message is sent immediately -or placed in the queue or drafts directory. `feedmail-mail-send-hook-queued' is -called when messages are being sent from the queue directory, typically via a -call to `feedmail-run-the-queue'." +Then add the functions you want called to either +`feedmail-mail-send-hook-queued' or `feedmail-mail-send-hook', as +appropriate. The distinction is that `feedmail-mail-send-hook' +will be called when you send mail from a composition +buffer (typically by typing C-c C-c), whether the message is sent +immediately or placed in the queue or drafts directory. +`feedmail-mail-send-hook-queued' is called when messages are +being sent from the queue directory, typically via a call to +`feedmail-run-the-queue'." (feedmail-say-debug ">in-> feedmail-mail-send-hook-splitter %s" feedmail-queue-runner-is-active) (if feedmail-queue-runner-is-active (run-hooks 'feedmail-mail-send-hook-queued) @@ -2072,10 +2075,10 @@ internally by feedmail): after-run (the queue has just been run, possibly sending messages) WHAT-EVENT is used as a key into the table `feedmail-queue-reminder-alist'. If -the associated value is a function, it is called without arguments and is expected -to perform the reminder activity. You can supply your own reminder functions -by redefining `feedmail-queue-reminder-alist'. If you don't want any reminders, -you can set `feedmail-queue-reminder-alist' to nil." +the associated value is a function, it is called without arguments and is +expected to perform the reminder activity. You can supply your own reminder +functions by redefining `feedmail-queue-reminder-alist'. If you don't want any +reminders, you can set `feedmail-queue-reminder-alist' to nil." (interactive "p") (feedmail-say-debug ">in-> feedmail-queue-reminder %s" what-event) (let ((key (if (and what-event (symbolp what-event)) what-event 'on-demand)) entry reminder) @@ -2970,7 +2973,8 @@ probably not appropriate for you." (defun feedmail-fiddle-list-of-fiddle-plexes (list-of-fiddle-plexes) - "Fiddling based on a list of fiddle-plexes. Values t, nil, and string are pointless." + "Fiddling based on a list of fiddle-plexes. +Values t, nil, and string are pointless." (feedmail-say-debug ">in-> feedmail-fiddle-list-of-fiddle-plexes") ;; default is to fall off the end of the list and do nothing (let ((lofp list-of-fiddle-plexes) fp) |