[Orgmode] Re: Please test links

[Thomas Baumann]

quickly installing and learning git....
... and mhe-links still failing

I guess the error comes from 

(defun org-add-link-props (&rest plist)
  "Add these properties to the link property list."
  (let (key value)
    (while plist
      (setq key (pop plist) value (pop plist))
      (setq org-store-link-plist
            (plist-put org-store-link-plist key value)))))

returning always nil because of (while plist ...

thus

(defun org-mhe-store-link ()
  "Store a link to an MHE folder or message."
  (when (or (equal major-mode 'mh-folder-mode)
            (equal major-mode 'mh-show-mode))
    (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:"))
          link desc)
      (org-store-link-props :type "mh" :from from :to to
                            :subject subject :message-id message-id)
      (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))))

returns nil and therefore org-store-link will not recognize the
successful mhe-link.

Cheers
Thomas