[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnorb 3b6007a 152/449: Autoload cookies all around

From: Stefan Monnier
Subject: [elpa] externals/gnorb 3b6007a 152/449: Autoload cookies all around
Date: Fri, 27 Nov 2020 23:15:28 -0500 (EST)

branch: externals/gnorb
commit 3b6007aa871ff62bb5c41920be7bc766c0c04867
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Autoload cookies all around
    * lisp/gnorb-bbdb.el
    * lisp/gnorb-gnus.el
    * lisp/gnorb-org.el
    Autoload cookies for all likely functions
 lisp/gnorb-bbdb.el | 5 +++++
 lisp/gnorb-gnus.el | 6 ++++++
 lisp/gnorb-org.el  | 5 +++++
 3 files changed, 16 insertions(+)

diff --git a/lisp/gnorb-bbdb.el b/lisp/gnorb-bbdb.el
index 02ba64c..9f2ee19 100644
--- a/lisp/gnorb-bbdb.el
+++ b/lisp/gnorb-bbdb.el
@@ -147,6 +147,7 @@ be composed, just as in `gnus-posting-styles'.
 An example value might look like:"
   :group 'gnorb-bbdb)
 (defun gnorb-bbdb-mail (records &optional subject n verbose)
   "\\<bbdb-mode-map>Acts just like `bbdb-mail', except runs
 RECORDS through `gnorb-bbdb-posting-styles', allowing
@@ -314,6 +315,7 @@ is non-nil (as in interactive calls) be verbose."
                         (insert "From: " (message-make-from) "\n"))))
                  t 'local)))))
 (defun gnorb-bbdb-tag-agenda (records)
   "Open an Org agenda tags view from the BBDB buffer, using the
 value of the record's org-tags field. This shows only TODOs by
@@ -341,6 +343,7 @@ both, use \"C-u\" before the \"*\"."
          (org-tags-view t tag-string))
       (error "No org-tags field present"))))
 (defun gnorb-bbdb-mail-search (records)
   "Initiate a mail search from the BBDB buffer.
@@ -366,6 +369,7 @@ a prefix arg and \"*\", the prefix arg must come first."
     (funcall (third backend) search-string)
 (defun gnorb-bbdb-cite-contact (rec)
   (interactive (list (gnorb-prompt-for-bbdb-record)))
   (let ((mail-string (bbdb-dwim-mail rec)))
@@ -448,6 +452,7 @@ layout type."
 ;; Open links from the *BBDB* buffer.
 (defun gnorb-bbdb-open-link (record arg)
   "\\<bbdb-mode-map>Call this on a BBDB record to open one of the
 links in the message field. By default, the first link will be
diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index a0c9456..68aee81 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -121,6 +121,7 @@ Basically behave as if all attachments have 
\":gnus-attachments t\"."
   "Holding place for attachment names during the capture
 (defun gnorb-gnus-article-org-attach (n)
   "Save MIME part N, which is the numerical prefix, of the
   article under point as an attachment to the specified org
@@ -128,6 +129,7 @@ Basically behave as if all attachments have 
\":gnus-attachments t\"."
   (interactive "P")
   (gnus-article-part-wrapper n 'gnorb-gnus-attach-part))
 (defun gnorb-gnus-mime-org-attach ()
   "Save the MIME part under point as an attachment to the
   specified org heading."
@@ -272,6 +274,7 @@ information about the outgoing message into
 (add-hook 'message-header-hook 'gnorb-gnus-check-outgoing-headers)
 (defun gnorb-gnus-outgoing-do-todo (&optional arg)
   "Call this function to use the message currently being composed
 as an email todo action. If it's a new message, or a reply to a
@@ -434,6 +437,7 @@ work."
 ;;; If an incoming message should trigger state-change for a Org todo,
 ;;; call this function on it.
 (defun gnorb-gnus-incoming-do-todo (arg &optional id)
   "Call this function from a received gnus message to store a
 link to the message, prompt for a related Org heading, visit the
@@ -496,6 +500,7 @@ to t (it is, by default)."
                (where-is-internal 'org-insert-link nil t)))))
 (defun gnorb-gnus-search-messages (str &optional ret)
   "Initiate a search for gnus message links in an org subtree.
 The arg STR can be one of two things: an Org heading id value
@@ -580,6 +585,7 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
                  " "))))
 (defun gnorb-gnus-view ()
   "Display the first relevant TODO heading for the message under point"
   ;; this is pretty barebones, need to make sure we have a valid
diff --git a/lisp/gnorb-org.el b/lisp/gnorb-org.el
index 7f79916..90d4b72 100644
--- a/lisp/gnorb-org.el
+++ b/lisp/gnorb-org.el
@@ -167,6 +167,7 @@ For instance, to limit candidates to headings with TODOs in
   :group 'gnorb-org
   :type 'symbol)
 (defun gnorb-org-contact-link (rec)
   "Prompt for a BBDB record and insert a link to that record at
@@ -484,6 +485,7 @@ current heading."
             (org-attach-file-list attach-dir))))
 (defun gnorb-org-handle-mail (&optional arg text file)
   "Handle current headline as a mail TODO."
   (interactive "P")
@@ -659,6 +661,7 @@ respective (usual) file extensions. Ugly way to do it, but 
 the hey..."
   :group 'gnorb-org)
 (defun gnorb-org-email-subtree (&optional arg)
   "Call on a subtree to export it either to a text string or a file,
 then compose a mail message either with the exported text
@@ -748,6 +751,7 @@ customized with `gnorb-bbdb-org-tag-field'."
                 (const full-multi-line)
 (defun gnorb-org-popup-bbdb (&optional str)
   "In an `org-tags-view' Agenda buffer, pop up a BBDB buffer
 showing records whose `org-tags' field matches the current tags
@@ -820,6 +824,7 @@ search."
 ;;; Groups from the gnorb gnus server backend
 (defun gnorb-org-view ()
   "Search the subtree at point for links to gnus messages, and
 then show them in an ephemeral group, in gnus.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]