mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-19 16:18:33 +00:00
Make sure the link-storing function returns non-nil.
This commit is contained in:
parent
562ee5051a
commit
16bc9499a6
|
@ -55,7 +55,8 @@
|
||||||
(company (bbdb-record-getprop (bbdb-current-record) 'company))
|
(company (bbdb-record-getprop (bbdb-current-record) 'company))
|
||||||
(link (org-make-link "bbdb:" name)))
|
(link (org-make-link "bbdb:" name)))
|
||||||
(org-store-link-props :type "bbdb" :name name :company company
|
(org-store-link-props :type "bbdb" :name name :company company
|
||||||
:link link :description name))))
|
:link link :description name)
|
||||||
|
link)))
|
||||||
|
|
||||||
(defun org-bbdb-export (path desc format)
|
(defun org-bbdb-export (path desc format)
|
||||||
"Create the exprt verison of a bbdb link."
|
"Create the exprt verison of a bbdb link."
|
||||||
|
|
|
@ -76,7 +76,8 @@ negates this setting for the duration of the command."
|
||||||
"gnus:")
|
"gnus:")
|
||||||
group)
|
group)
|
||||||
link (org-make-link desc))
|
link (org-make-link desc))
|
||||||
(org-add-link-props :link link :description desc)))
|
(org-add-link-props :link link :description desc)
|
||||||
|
link))
|
||||||
|
|
||||||
((memq major-mode '(gnus-summary-mode gnus-article-mode))
|
((memq major-mode '(gnus-summary-mode gnus-article-mode))
|
||||||
(and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
|
(and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
|
||||||
|
@ -99,7 +100,8 @@ negates this setting for the duration of the command."
|
||||||
(org-fixup-message-id-for-http message-id))))
|
(org-fixup-message-id-for-http message-id))))
|
||||||
(setq link (org-make-link "gnus:" group
|
(setq link (org-make-link "gnus:" group
|
||||||
"#" (number-to-string article))))
|
"#" (number-to-string article))))
|
||||||
(org-add-link-props :link link :description desc)))))
|
(org-add-link-props :link link :description desc)
|
||||||
|
link))))
|
||||||
|
|
||||||
(defun org-gnus-open (path)
|
(defun org-gnus-open (path)
|
||||||
"Follow an GNUS message or folder link."
|
"Follow an GNUS message or folder link."
|
||||||
|
|
|
@ -55,7 +55,8 @@
|
||||||
":" Info-current-node))
|
":" Info-current-node))
|
||||||
(org-store-link-props :type "info" :file Info-current-file
|
(org-store-link-props :type "info" :file Info-current-file
|
||||||
:node Info-current-node
|
:node Info-current-node
|
||||||
:link link :desc desc))))
|
:link link :desc desc)
|
||||||
|
link)))
|
||||||
|
|
||||||
(defun org-info-open (path)
|
(defun org-info-open (path)
|
||||||
"Follow an INFO message link."
|
"Follow an INFO message link."
|
||||||
|
|
|
@ -88,7 +88,8 @@ supported by MH-E, but will be slow with pick."
|
||||||
(setq desc (org-email-link-description))
|
(setq desc (org-email-link-description))
|
||||||
(setq link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#"
|
(setq link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#"
|
||||||
(org-remove-angle-brackets message-id)))
|
(org-remove-angle-brackets message-id)))
|
||||||
(org-add-link-props :link link :description desc))))
|
(org-add-link-props :link link :description desc)
|
||||||
|
link)))
|
||||||
|
|
||||||
(defun org-mhe-open (path)
|
(defun org-mhe-open (path)
|
||||||
"Follow an MHE message link."
|
"Follow an MHE message link."
|
||||||
|
|
|
@ -65,8 +65,9 @@
|
||||||
(setq message-id (org-remove-angle-brackets message-id))
|
(setq message-id (org-remove-angle-brackets message-id))
|
||||||
(setq desc (org-email-link-description))
|
(setq desc (org-email-link-description))
|
||||||
(setq link (org-make-link "rmail:" folder "#" message-id))
|
(setq link (org-make-link "rmail:" folder "#" message-id))
|
||||||
(org-add-link-props :link link :description desc))
|
(org-add-link-props :link link :description desc)
|
||||||
(rmail-show-message rmail-current-message)))))
|
(rmail-show-message rmail-current-message)
|
||||||
|
link)))))
|
||||||
|
|
||||||
(defun org-rmail-open (path)
|
(defun org-rmail-open (path)
|
||||||
"Follow an RMAIL message link."
|
"Follow an RMAIL message link."
|
||||||
|
|
|
@ -76,7 +76,8 @@
|
||||||
(setq folder (replace-match "" t t folder)))
|
(setq folder (replace-match "" t t folder)))
|
||||||
(setq desc (org-email-link-description))
|
(setq desc (org-email-link-description))
|
||||||
(setq link (org-make-link "vm:" folder "#" message-id))
|
(setq link (org-make-link "vm:" folder "#" message-id))
|
||||||
(org-add-link-props :link link :description desc)))))
|
(org-add-link-props :link link :description desc)
|
||||||
|
link))))
|
||||||
|
|
||||||
(defun org-vm-open (path)
|
(defun org-vm-open (path)
|
||||||
"Follow an VM message link."
|
"Follow an VM message link."
|
||||||
|
|
|
@ -84,7 +84,8 @@
|
||||||
(setq desc (org-email-link-description))
|
(setq desc (org-email-link-description))
|
||||||
(setq link (org-make-link "wl:" wl-summary-buffer-folder-name
|
(setq link (org-make-link "wl:" wl-summary-buffer-folder-name
|
||||||
"#" message-id))
|
"#" message-id))
|
||||||
(org-add-link-props :link link :description desc))))
|
(org-add-link-props :link link :description desc)
|
||||||
|
link)))
|
||||||
|
|
||||||
(defun org-wl-open (path)
|
(defun org-wl-open (path)
|
||||||
"Follow an WL message link."
|
"Follow an WL message link."
|
||||||
|
|
Loading…
Reference in a new issue