X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-diary.el;h=18130bbb0fbf5c0f1cd4c84b052a4efe03950b69;hb=74a489ff1213794152d6e13f7a11e16c89f62602;hp=7ec4c6735b4ebdb786e62911b2922940b771ab13;hpb=fe594e071388508aa408f975b8d40c955cc3dbbd;p=gnus diff --git a/lisp/gnus-diary.el b/lisp/gnus-diary.el index 7ec4c6735..18130bbb0 100644 --- a/lisp/gnus-diary.el +++ b/lisp/gnus-diary.el @@ -1,7 +1,7 @@ ;;; gnus-diary.el --- Wrapper around the NNDiary Gnus back end ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, -;; 2008, 2009 Free Software Foundation, Inc. +;; 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Didier Verna ;; Maintainer: Didier Verna @@ -158,7 +158,7 @@ There are currently two built-in format functions: ;; 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 occurrence 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)) @@ -195,7 +195,7 @@ There are currently two built-in format functions: ;; 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 occurrence of this message. (let* ((extras (mail-header-extra header)) (sched (gnus-diary-header-schedule extras)) (occur (nndiary-next-occurence sched (current-time)))) @@ -401,5 +401,4 @@ If ARG (or prefix) is non-nil, force prompting for all fields." (provide 'gnus-diary) -;; arch-tag: 98467e70-337e-4ddc-b92d-45d403ff1b4b ;;; gnus-diary.el ends here