mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 09:46:26 +00:00
Code Releases Activity

Make sure the link-storing function returns non-nil.

Browse source
This commit is contained in:
Carsten Dominik 2008-03-15 21:34:06 +01:00
parent 562ee5051a
commit 16bc9499a6
7 changed files with 19 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
org-bbdb.el
View file

@ -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."

6
org-gnus.el
View file

@ -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."

3
org-info.el
View file

@ -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."

3
org-mhe.el
View file

@ -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."

5
org-rmail.el
View file

@ -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."

3
org-vm.el
View file

@ -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."

3
org-wl.el
View file

@ -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."