[Orgmode] [bug] org-store-link on gnus message fails

[Eric S Fraga]

Hello,

Trying to store a link to a gnus email message (=org-store-link=) when
the cursor is on a particular message in a gnus Summary mode window, I
get:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Invalid date: ")
  signal(error ("Invalid date: "))
  error("Invalid date: %s" "")
  byte-code("\300\301\302\217\207" [nil (byte-code "\301\302\303\304!!\"\207" 
[date apply encode-time parse-time-string timezone-make-date-arpa-standard] 5) 
((error ...))] 3)
  date-to-time("")
  (format-time-string (org-time-stamp-format t) (date-to-time date))
  (and date (format-time-string (org-time-stamp-format t) (date-to-time date)))
  (let* ((group gnus-newsgroup-name) (header ...) (from ...) (message-id ...) 
(date ...) (date-ts ...) (date-ts-ia ...) (subject ...) (to ...) newsgroups 
x-no-archive desc link) (set-text-properties 0 (length subject) nil subject) 
(when (org-xor current-prefix-arg org-gnus-prefer-web-links) 
(save-window-excursion ...) (setq to ... newsgroups ... x-no-archive ...)) 
(org-store-link-props :type "gnus" :from from :subject subject :message-id 
message-id :group group :to to) (when date (org-add-link-props :date date 
:date-timestamp date-ts :date-timestamp-inactive date-ts-ia)) (setq desc 
(org-email-link-description) link (org-gnus-article-link group newsgroups 
message-id x-no-archive)) (org-add-link-props :link link :description desc) 
link)
  (cond ((eq major-mode ...) (let* ... ...)) ((memq major-mode ...) (let* ... 
... ... ... ... ... ... link)))
  org-gnus-store-link()
  run-hook-with-args-until-success(org-gnus-store-link)
  (cond ((run-hook-with-args-until-success ...) (setq link ... desc ...)) 
((equal ... "*Org Edit Src Example*") (let ... ... ... ... ... ... ... ...)) 
((equal ... ...) (let ... ...)) ((eq major-mode ...) (let ... ... ...)) ((eq 
major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "w3" 
:url ...)) ((eq major-mode ...) (setq cpltxt ... link ...) 
(org-store-link-props :type "w3m" :url ...)) ((setq search ...) (setq link ...) 
(setq cpltxt ...)) ((eq major-mode ...) (setq cpltxt ... link ...) 
(org-store-link-props :type "image" :file buffer-file-name)) ((eq major-mode 
...) (let ... ... ...)) ((and ... ...) (setq custom-id ...) (cond ... ... ...)) 
((buffer-file-name ...) (setq cpltxt ...) (when ... ... ...) (setq link ...)) 
((interactive-p) (error "Cannot link to a buffer which is not visiting a 
file")) (t (setq link nil)))
  (let ((outline-regexp ...) link cpltxt desc description search txt custom-id 
agenda-link) (cond (... ...) (... ...) (... ...) (... ...) (... ... ...) (... 
... ...) (... ... ...) (... ... ...) (... ...) (... ... ...) (... ... ... ...) 
(... ...) (t ...)) (if (consp link) (setq cpltxt ... link ...)) (setq link (or 
link cpltxt) desc (or desc cpltxt)) (if (equal desc "NONE") (setq desc nil)) 
(if (and ... link) (progn ... ... ...) (or agenda-link ...)))
  org-store-link(nil)
  call-interactively(org-store-link nil nil)
--8<---------------cut here---------------end--------------->8---

Any hints as to what could be wrong (i.e. have I misconfigured
something)?

Thanks,
eric

-- 
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 23.2.1
: using Org-mode version 7.4 (release_7.4.166.gf7a7)