From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: [Accepted] Re: [bug] org-store-link on gnus message fails Date: Thu, 13 Jan 2011 12:53:01 +0100 (CET) Message-ID: <20110113115301.68C0B87448A@ehef110.hef.ru.nl> References: <87bp3moyua.fsf@member.fsf.org> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=57497 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PdLjm-0001hi-S6 for emacs-orgmode@gnu.org; Thu, 13 Jan 2011 06:53:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PdLjl-0006BL-A4 for emacs-orgmode@gnu.org; Thu, 13 Jan 2011 06:53:06 -0500 Received: from ehef110.hef.ru.nl ([131.174.192.110]:55712) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PdLjk-0006Av-Se for emacs-orgmode@gnu.org; Thu, 13 Jan 2011 06:53:05 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Patch 533 (http://patchwork.newartisans.com/patch/533/) is now "Accepted". Maintainer comment: No comment This relates to the following submission: http://mid.gmane.org/%3C87bp3moyua.fsf%40member.fsf.org%3E Here is the original message containing the patch: > Content-Type: text/plain; charset="utf-8" > MIME-Version: 1.0 > Content-Transfer-Encoding: 7bit > Subject: [Orgmode] Re: [bug] org-store-link on gnus message fails > Date: Wed, 12 Jan 2011 21:45:17 -0000 > From: Tassilo Horn > X-Patchwork-Id: 533 > Message-Id: <87bp3moyua.fsf@member.fsf.org> > To: emacs-orgmode@gnu.org > > Hi Eric, > > this patch should do the trick. I think the issue was a malformed Date: > header that couldn't be converted to a timestamp. > > --8<---------------cut here---------------start------------->8--- > --8<---------------cut here---------------end--------------->8--- > > Bye, > Tassilo > > > diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el > index 32641bf..ae5dc52 100644 > --- a/lisp/org-gnus.el > +++ b/lisp/org-gnus.el > @@ -152,11 +152,16 @@ If `org-store-link' was called with a prefix arg the meaning of > (from (mail-header-from header)) > (message-id (org-remove-angle-brackets (mail-header-id header))) > (date (org-trim (mail-header-date header))) > - (date-ts (and date (format-time-string > - (org-time-stamp-format t) (date-to-time date)))) > - (date-ts-ia (and date (format-time-string > - (org-time-stamp-format t t) > - (date-to-time date)))) > + (date-ts (and date > + (condition-case nil > + (format-time-string > + (org-time-stamp-format t) > + (date-to-time date))))) > + (date-ts-ia (and date > + (condition-case nil > + (format-time-string > + (org-time-stamp-format t t) > + (date-to-time date))))) > (subject (copy-sequence (mail-header-subject header))) > (to (cdr (assq 'To (mail-header-extra header)))) > newsgroups x-no-archive desc link) >