projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Give a better error message in the "go offline" case.
[gnus]
/
lisp
/
gnus-diary.el
diff --git
a/lisp/gnus-diary.el
b/lisp/gnus-diary.el
index
cd2239a
..
18130bb
100644
(file)
--- a/
lisp/gnus-diary.el
+++ b/
lisp/gnus-diary.el
@@
-1,7
+1,7
@@
;;; gnus-diary.el --- Wrapper around the NNDiary Gnus back end
;;; gnus-diary.el --- Wrapper around the NNDiary Gnus back end
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;; 200
6, 2007, 2008
Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007,
+;; 200
8, 2009, 2010
Free Software Foundation, Inc.
;; Author: Didier Verna <didier@xemacs.org>
;; Maintainer: Didier Verna <didier@xemacs.org>
;; Author: Didier Verna <didier@xemacs.org>
;; Maintainer: Didier Verna <didier@xemacs.org>
@@
-10,20
+10,18
@@
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software
;
you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published
-;;
by the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
+;; GNU Emacs is free software
:
you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
by
+;;
the Free Software Foundation, either version 3 of the License, or
+;;
(at your option)
any later version.
-;; GNU Emacs is distributed in the hope that it will be useful,
but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU
-;; General Public License for more details.
+;; GNU Emacs is distributed in the hope that it will be useful,
+;;
but
WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; G
NU G
eneral Public License for more details.
;; You should have received a copy of the GNU General Public License
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Commentary:
@@
-160,7
+158,7
@@
There are currently two built-in format functions:
;; I just ignore it.
;;;###autoload
(defun gnus-user-format-function-d (header)
;; I just ignore it.
;;;###autoload
(defun gnus-user-format-function-d (header)
- ;; Returns an aproximative delay string for the next occurence of this
+ ;; Returns an aproximative delay string for the next occur
r
ence of this
;; message. The delay is given only in the first non zero unit.
;; Code partly stolen from article-make-date-line
(let* ((extras (mail-header-extra header))
;; message. The delay is given only in the first non zero unit.
;; Code partly stolen from article-make-date-line
(let* ((extras (mail-header-extra header))
@@
-197,7
+195,7
@@
There are currently two built-in format functions:
;; I just ignore it.
;;;###autoload
(defun gnus-user-format-function-D (header)
;; I just ignore it.
;;;###autoload
(defun gnus-user-format-function-D (header)
- ;; Returns a formatted time string for the next occurence of this message.
+ ;; Returns a formatted time string for the next occur
r
ence of this message.
(let* ((extras (mail-header-extra header))
(sched (gnus-diary-header-schedule extras))
(occur (nndiary-next-occurence sched (current-time))))
(let* ((extras (mail-header-extra header))
(sched (gnus-diary-header-schedule extras))
(occur (nndiary-next-occurence sched (current-time))))
@@
-353,7
+351,7
@@
If ARG (or prefix) is non-nil, force prompting for all fields."
(condition-case ()
(nndiary-parse-schedule-value value
(nth 1 head) (nth 2 head))
(condition-case ()
(nndiary-parse-schedule-value value
(nth 1 head) (nth 2 head))
- (
t
+ (
error
(setq invalid t)))
;; #### NOTE: this (along with the `gnus-diary-add-header'
;; function) could be rewritten in a better way, in particular
(setq invalid t)))
;; #### NOTE: this (along with the `gnus-diary-add-header'
;; function) could be rewritten in a better way, in particular
@@
-380,7
+378,7
@@
If ARG (or prefix) is non-nil, force prompting for all fields."
(condition-case ()
(nndiary-parse-schedule-value value
(nth 1 head) (nth 2 head))
(condition-case ()
(nndiary-parse-schedule-value value
(nth 1 head) (nth 2 head))
- (
t
+ (
error
(setq invalid t))))
(gnus-diary-add-header (concat header ": " value))
))
(setq invalid t))))
(gnus-diary-add-header (concat header ": " value))
))
@@
-403,5
+401,4
@@
If ARG (or prefix) is non-nil, force prompting for all fields."
(provide 'gnus-diary)
(provide 'gnus-diary)
-;;; arch-tag: 98467e70-337e-4ddc-b92d-45d403ff1b4b
;;; gnus-diary.el ends here
;;; gnus-diary.el ends here