2000-11-30 Simon Josefsson <sj@extundo.com>

        * smime.el (smime-point-at-eol): New alias.
        (smime-buffer-as-string-region): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7cd2211..2a1b996 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-30  Simon Josefsson  <sj@extundo.com>
+
+       * smime.el (smime-point-at-eol): New alias.
+       (smime-buffer-as-string-region): Use it.
+
 2000-11-29 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nndraft.el (nndraft-request-restore-buffer): Remove Date field.

diff --git a/lisp/smime.el b/lisp/smime.el
index 749766c..2f40b62 100644 (file)
--- a/lisp/smime.el
+++ b/lisp/smime.el
@@ -327,13 +327,18 @@ A string or a list of strings is returned."
       (insert-buffer-substring buffer)
       t)))  
 
+(defalias 'smime-point-at-eol
+  (if (fboundp 'point-at-eol)
+      'point-at-eol
+    'line-end-position))
+
 (defun smime-buffer-as-string-region (b e)
   "Return each line in region between B and E as a list of strings."
   (save-excursion
     (goto-char b)
     (let (res)
       (while (< (point) e)
-       (push (buffer-substring (point) (point-at-eol)) res)
+       (push (buffer-substring (point) (smime-point-at-eol)) res)
        (forward-line))
       res)))