Mercurial > emacs

changeset 33299:be95f43e08db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(imap-point-at-eol): New, replacing gnus-point-at-eol.
author Dave Love <fx@gnu.org>
date Wed, 08 Nov 2000 15:32:11 +0000
parents 8a75bc99cf0b
children cae923af5a5d
files lisp/gnus/imap.el
diffstat 1 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/imap.el	Wed Nov 08 15:27:30 2000 +0000
+++ b/lisp/gnus/imap.el	Wed Nov 08 15:32:11 2000 +0000
@@ -152,7 +152,15 @@
   (autoload 'utf7-encode "utf7")
   (autoload 'utf7-decode "utf7")
   (autoload 'format-spec "format-spec")
-  (autoload 'format-spec-make "format-spec"))
+  (autoload 'format-spec-make "format-spec")
+  ;; Avoid use gnus-point-at-eol so we're independent of Gnus.  These
+  ;; days we have point-at-eol anyhow.
+  (if (fboundp 'point-at-eol)
+      (defalias 'imap-point-at-eol 'point-at-eol)
+    (defun imap-point-at-eol ()
+      (save-excursion
+	(end-of-line)
+	(point)))))
 
 ;; User variables.
 
@@ -2217,7 +2225,7 @@
     (assert (eq (char-after) ?\())
     (while (and (not (eq (char-after) ?\)))
 		(setq start (progn (imap-forward) (point)))
-		(> (skip-chars-forward "^ )" (gnus-point-at-eol)) 0))
+		(> (skip-chars-forward "^ )" (imap-point-at-eol)) 0))
       (push (buffer-substring start (point)) flag-list))
     (assert (eq (char-after) ?\)))
     (imap-forward)