mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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

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))
(link (org-make-link "bbdb:" name)))
(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)
"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:")
group)
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))
(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))))
(setq link (org-make-link "gnus:" group
"#" (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)
"Follow an GNUS message or folder link."

7
org-info.el
View File

@ -53,9 +53,10 @@
":" Info-current-node))
(setq desc (concat (file-name-nondirectory Info-current-file)
":" Info-current-node))
(org-store-link-props :type "info" :file Info-current-file
:node Info-current-node
:link link :desc desc))))
(org-store-link-props :type "info" :file Info-current-file
:node Info-current-node
:link link :desc desc)
link)))
(defun org-info-open (path)
"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 link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#"
(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)
"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 desc (org-email-link-description))
(setq link (org-make-link "rmail:" folder "#" message-id))
(org-add-link-props :link link :description desc))
(rmail-show-message rmail-current-message)))))
(org-add-link-props :link link :description desc)
(rmail-show-message rmail-current-message)
link)))))
(defun org-rmail-open (path)
"Follow an RMAIL message link."

3
org-vm.el
View File

@ -76,7 +76,8 @@
(setq folder (replace-match "" t t folder)))
(setq desc (org-email-link-description))
(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)
"Follow an VM message link."

3
org-wl.el
View File

@ -84,7 +84,8 @@
(setq desc (org-email-link-description))
(setq link (org-make-link "wl:" wl-summary-buffer-folder-name
"#" message-id))
(org-add-link-props :link link :description desc))))
(org-add-link-props :link link :description desc)
link)))
(defun org-wl-open (path)
"Follow an WL message link."