Function: org-mhe-store-link

org-mhe-store-link is a byte-compiled function defined in ol-mhe.el.gz.

Signature

(org-mhe-store-link &optional INTERACTIVE?)

Documentation

Store a link to an MH-E folder or message.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ol-mhe.el.gz
;; Implementation
(defun org-mhe-store-link (&optional _interactive?)
  "Store a link to an MH-E folder or message."
  (when (or (eq major-mode 'mh-folder-mode)
	    (eq major-mode 'mh-show-mode))
    (save-window-excursion
      (let* ((from (org-mhe-get-header "From:"))
	     (to (org-mhe-get-header "To:"))
	     (message-id (org-mhe-get-header "Message-Id:"))
	     (subject (org-mhe-get-header "Subject:"))
	     (date (org-mhe-get-header "Date:"))
	     link desc)
	(org-link-store-props :type "mh" :from from :to to :date date
			      :subject subject :message-id message-id)
	(setq desc (org-link-email-description))
	(setq link (concat "mhe:" (org-mhe-get-message-real-folder) "#"
			   (org-unbracket-string "<" ">" message-id)))
	(org-link-add-props :link link :description desc)
	link))))