From 2d5fdf6346143dbfbd21e8c3d2f3f3595855b8ec Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 8 Nov 2000 15:32:11 +0000 Subject: [PATCH] (imap-point-at-eol): New, replacing gnus-point-at-eol. --- lisp/gnus/imap.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/imap.el b/lisp/gnus/imap.el index 98a981d0607..58eda992bf9 100644 --- a/lisp/gnus/imap.el +++ b/lisp/gnus/imap.el @@ -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 @@ Return nil if no complete line has arrived." (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) -- 2.39.5