* gnus-cite.el (gnus-message-search-citation-line): Use point-at-bol and

 point-at-eol instead of line-(beginning|end)-position.

* assistant.el (assistant-parse-buffer): Ditto.

* netrc.el (netrc-parse-services): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 069d8e4..4b9c01a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2007-02-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-cite.el (gnus-message-search-citation-line): Use point-at-bol
+       and point-at-eol instead of line-(beginning|end)-position.
+
+       * assistant.el (assistant-parse-buffer): Ditto.
+
+       * netrc.el (netrc-parse-services): Ditto.
+

 2007-02-28  Daiki Ueno  <ueno@unixuser.org>
 
        * mml2015.el (mml2015-epg-find-usable-key): New function.
 2007-02-28  Daiki Ueno  <ueno@unixuser.org>
 
        * mml2015.el (mml2015-epg-find-usable-key): New function.

diff --git a/lisp/assistant.el b/lisp/assistant.el
index 1048c42..e50e19a 100644 (file)
--- a/lisp/assistant.el
+++ b/lisp/assistant.el
@@ -77,7 +77,7 @@
                    (forward-line 1)))
              (skip-chars-forward " \t")
              (prog1
                    (forward-line 1)))
              (skip-chars-forward " \t")
              (prog1

-                 (buffer-substring (point) (line-end-position))
+                 (buffer-substring (point) (point-at-eol))

                (forward-line 1))))
       (push (list command (assistant-reader command value))
            results))
                (forward-line 1))))
       (push (list command (assistant-reader command value))
            results))

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 4dd58b5..77d76fc 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -1150,8 +1150,8 @@ Returns nil if there is no such line before LIMIT, t otherwise."
                                       "[ \t [:alnum:]]+")))
                       gnus-message-max-citation-depth))
          (mlist (make-list (* (1+ gnus-message-max-citation-depth) 2) nil))
                                       "[ \t [:alnum:]]+")))
                       gnus-message-max-citation-depth))
          (mlist (make-list (* (1+ gnus-message-max-citation-depth) 2) nil))

-         (start (line-beginning-position))
-         (end (line-end-position)))
+         (start (point-at-bol))
+         (end (point-at-eol)))

       (setcar mlist start)
       (setcar (cdr mlist) end)
       (setcar (nthcdr (* cdepth 2) mlist) start)
       (setcar mlist start)
       (setcar (cdr mlist) end)
       (setcar (nthcdr (* cdepth 2) mlist) start)

diff --git a/lisp/netrc.el b/lisp/netrc.el
index e727e6c..e31dcbf 100644 (file)
--- a/lisp/netrc.el
+++ b/lisp/netrc.el
@@ -169,7 +169,7 @@ MODE can be \"login\" or \"password\", suitable for passing to
       (with-temp-buffer
        (insert-file-contents netrc-services-file)
        (while (search-forward "#" nil t)
       (with-temp-buffer
        (insert-file-contents netrc-services-file)
        (while (search-forward "#" nil t)

-         (delete-region (1- (point)) (line-end-position)))
+         (delete-region (1- (point)) (point-at-eol)))

        (goto-char (point-min))
        (while (re-search-forward
                "^ *\\([^ \n\t]+\\)[ \t]+\\([0-9]+\\)/\\([^ \t\n]+\\)" nil t)
        (goto-char (point-min))
        (while (re-search-forward
                "^ *\\([^ \n\t]+\\)[ \t]+\\([0-9]+\\)/\\([^ \t\n]+\\)" nil t)