2001-09-12 18:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-diary.el: Minor modifications to avoid warnings.
	(gnus-summary-misc-menu): defvar.
	(gnus-diary-check-message): Use gnus-point-at-eol.
	(gnus-diary-kill-entire-line): eval-and-compile.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 754cac0..795f688 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-09-12 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-diary.el: Minor modifications to avoid warnings.
+       (gnus-summary-misc-menu): defvar.
+       (gnus-diary-check-message): Use gnus-point-at-eol.
+       (gnus-diary-kill-entire-line): eval-and-compile.
+
 2001-09-12  Didier Verna  <didier@xemacs.org>
 
        * nndiary.el: new version (0.2-b13).

diff --git a/lisp/gnus-diary.el b/lisp/gnus-diary.el
index 98ef4e0..60df29c 100644 (file)
--- a/lisp/gnus-diary.el
+++ b/lisp/gnus-diary.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1999-2001 Didier Verna.
 
-;; PRCS: $Id: gnus-diary.el 1.17 Wed, 12 Sep 2001 15:54:36 +0200 didier $
+;; PRCS: $Id: gnus-diary.el,v 1.2 2001/09/12 14:17:15 didier Exp $
 
 ;; Author:        Didier Verna <didier@xemacs.org>
 ;; Maintainer:    Didier Verna <didier@xemacs.org>
@@ -270,6 +270,8 @@ Optional prefix (or REVERSE argument) means sort in reverse order."
   (interactive "P")
   (gnus-summary-sort 'schedule reverse))
 
+(defvar gnus-summary-misc-menu)
+
 (add-hook 'gnus-summary-menu-hook
          (lambda ()
            (easy-menu-add-item gnus-summary-misc-menu
@@ -337,14 +339,13 @@ Optional prefix (or REVERSE argument) means sort in reverse order."
 
 ;; Diary Message Checking ===================================================
 
-(if (fboundp 'kill-entire-line)
+(eval-and-compile
+  (if (fboundp 'kill-entire-line)
+      (defalias 'gnus-diary-kill-entire-line 'kill-entire-line)
     (defun gnus-diary-kill-entire-line ()
-      (kill-entire-line))
-  (defun gnus-diary-kill-entire-line ()
-    (beginning-of-line)
-    (let ((kill-whole-line t))
-      (kill-line)))
-  )
+      (beginning-of-line)
+      (let ((kill-whole-line t))
+       (kill-line)))))
 
 (defvar gnus-diary-header-value-history nil
   ;; History variable for header value prompting
@@ -396,7 +397,7 @@ If ARG (or prefix) is non-nil, force prompting for all fields."
           (when (re-search-forward (concat "^" header ":") nil t)
             (unless (eq (char-after) ? )
               (insert " "))
-            (setq value (buffer-substring (point) (point-at-eol)))
+            (setq value (buffer-substring (point) (gnus-point-at-eol)))
             (and (string-match "[ \t]*\\([^ \t]+\\)[ \t]*" value)
                  (setq value (match-string 1 value)))
             (condition-case ()