*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1288c8..2c460e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+Wed Jun 18 01:11:58 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.58 is released.
+
+Wed Jun 18 01:02:34 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.el: Backed out all char-afters which caused bugs all over
+       the place.
+
 Wed Jun 18 00:33:41 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.57 is released.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index ad9d226..18c1eb6 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -762,7 +762,7 @@ always hide."
     (when (search-forward "\n\n" nil t)
       (let ((buffer-read-only nil))
        (while (search-forward "\b" nil t)
-         (let ((next (char-after (point)))
+         (let ((next (following-char))
                (previous (char-after (- (point) 2))))
            ;; We do the boldification/underlining by hiding the
            ;; overstrikes and putting the proper text property
@@ -795,7 +795,7 @@ always hide."
            (adaptive-fill-mode t))
        (while (not (eobp))
          (and (>= (current-column) (min fill-column (window-width)))
-              (/= (char-before (point)) ?:)
+              (/= (preceding-char) ?:)
               (fill-paragraph nil))
          (end-of-line 2))))))
 
@@ -932,7 +932,7 @@ or not."
   (interactive "r")
   (goto-char from)
   (while (search-forward "=" to t)
-    (cond ((eq (char-after (point)) ?\n)
+    (cond ((eq (following-char) ?\n)
           (delete-char -1)
           (delete-char 1))
          ((looking-at "[0-9A-F][0-9A-F]")

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index c529745..9c7e31c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1316,7 +1316,7 @@ If FIRST-TOO, the current line is also eligible as a target."
        (beginning-of-line)
        (forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
        (subst-char-in-region
-        (point) (1+ (point)) (char-after (point))
+        (point) (1+ (point)) (following-char)
         (if unmark
             (progn
               (setq gnus-group-marked (delete group gnus-group-marked))

diff --git a/lisp/gnus-nocem.el b/lisp/gnus-nocem.el
index 6deb59f..0695668 100644 (file)
--- a/lisp/gnus-nocem.el
+++ b/lisp/gnus-nocem.el
@@ -225,7 +225,7 @@ matches an previously scanned and verified nocem message."
          (when (gnus-gethash (symbol-name group) gnus-newsrc-hashtb)
            ;; Valid group.
            (beginning-of-line)
-           (while (= (char-after (point)) ?\t)
+           (while (= (following-char) ?\t)
              (forward-line -1))
            (setq id (buffer-substring (point) (1- (search-forward "\t"))))
            (unless (gnus-gethash id gnus-nocem-hashtb)
@@ -233,7 +233,7 @@ matches an previously scanned and verified nocem message."
              (gnus-sethash id t gnus-nocem-hashtb)
              (push id ncm))
            (forward-line 1)
-           (while (= (char-after (point)) ?\t)
+           (while (= (following-char) ?\t)
              (forward-line 1))))))
       (when ncm
        (setq gnus-nocem-touched-alist t)

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index dd691fa..10bb67f 100644 (file)
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -663,7 +663,7 @@ Two predefined functions are available:
          (while (progn
                   (forward-line -1)
                   (forward-char col)
-                  (= (char-after (point)) ? ))
+                  (= (following-char) ? ))
            (delete-char 1)
            (insert (caddr gnus-tree-parent-child-edges)))
          (goto-char beg)))
@@ -722,7 +722,7 @@ Two predefined functions are available:
          (while (progn
                   (unless (bolp)
                     (forward-char -2))
-                  (= (char-after (point)) ? ))
+                  (= (following-char) ? ))
            (delete-char 1)
            (insert (car gnus-tree-parent-child-edges)))
          (goto-char beg)

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index f1ea6d7..44cf937 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -388,9 +388,9 @@
             (t
              nil)))
        ;; User-defined spec -- find the spec name.
-       (when (= (setq spec (char-after (point))) ?u)
+       (when (= (setq spec (following-char)) ?u)
          (forward-char 1)
-         (setq user-defined (char-after (point))))
+         (setq user-defined (following-char)))
        (forward-char 1)
        (delete-region spec-beg (point))
 

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 3d3ab3e..c8b7813 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -691,7 +691,7 @@ buffer.
     (save-excursion
       (beginning-of-line)
       ;; If this group it killed, then we want to subscribe it.
-      (when (= (char-after (point)) ?K)
+      (when (= (following-char) ?K)
        (setq sub t))
       (setq group (gnus-browse-group-name))
       ;; Make sure the group has been properly removed before we

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index a846c84..aca6c8a 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1690,13 +1690,13 @@ newsgroup."
                       (progn
                         (skip-chars-forward " \t")
                         (not
-                         (or (= (char-after (point)) ?=)
-                             (= (char-after (point)) ?x)
-                             (= (char-after (point)) ?j)))))
+                         (or (= (following-char) ?=)
+                             (= (following-char) ?x)
+                             (= (following-char) ?j)))))
                  (progn
                    (set group (cons min max))
                    ;; if group is moderated, stick in moderation table
-                   (when (= (char-after (point)) ?m)
+                   (when (= (following-char) ?m)
                      (unless gnus-moderated-hashtb
                        (setq gnus-moderated-hashtb (gnus-make-hashtable)))
                      (gnus-sethash (symbol-name group) t
@@ -1750,7 +1750,7 @@ newsgroup."
       (let (min max group)
        (while (not (eobp))
          (condition-case ()
-             (when (= (char-after (point)) ?2)
+             (when (= (following-char) ?2)
                (read cur) (read cur)
                (setq min (read cur)
                      max (read cur))
@@ -1965,7 +1965,7 @@ If FORCE is non-nil, the .newsrc file is read."
        (unless (boundp symbol)
          (set symbol nil))
        ;; It was a group name.
-       (setq subscribed (= (char-after (point)) ?:)
+       (setq subscribed (= (following-char) ?:)
              group (symbol-name symbol)
              reads nil)
        (if (eolp)
@@ -1989,7 +1989,7 @@ If FORCE is non-nil, the .newsrc file is read."
                           (read buf)))
              (widen)
              ;; If the next character is a dash, then this is a range.
-             (if (= (char-after (point)) ?-)
+             (if (= (following-char) ?-)
                  (progn
                    ;; We read the upper bound of the range.
                    (forward-char 1)
@@ -2011,8 +2011,8 @@ If FORCE is non-nil, the .newsrc file is read."
                (push num1 reads))
              ;; If the next char in ?\n, then we have reached the end
              ;; of the line and return nil.
-             (/= (char-after (point)) ?\n))
-            ((= (char-after (point)) ?\n)
+             (/= (following-char) ?\n))
+            ((= (following-char) ?\n)
              ;; End of line, so we end.
              nil)
             (t

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 0690154..92a6675 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2176,7 +2176,7 @@ This is all marks except unread, ticked, dormant, and expirable."
     (while (setq point (pop config))
       (when (and (< point (point-max))
                 (goto-char point)
-                (= (char-after (point)) ?\n))
+                (= (following-char) ?\n))
        (subst-char-in-region point (1+ point) ?\n ?\r)))))
 
 ;; Various summary mode internalish functions.
@@ -4250,7 +4250,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 
 (defmacro gnus-nov-read-integer ()
   '(prog1
-       (if (= (char-after (point)) ?\t)
+       (if (= (following-char) ?\t)
           0
         (let ((num (ignore-errors (read buffer))))
           (if (numberp num) num 0)))
@@ -4300,7 +4300,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
                   (gnus-nov-field))    ; refs
                 (gnus-nov-read-integer) ; chars
                 (gnus-nov-read-integer) ; lines
-                (if (eq (char-after (point)) ?\n)
+                (if (= (following-char) ?\n)
                     nil
                   (gnus-nov-field))))) ; misc
 
@@ -4409,7 +4409,7 @@ This is meant to be called in `gnus-article-internal-prepare-hook'."
          (save-restriction
            (nnheader-narrow-to-headers)
            (goto-char (point-min))
-           (when (or (and (eq (downcase (char-after (point))) ?x)
+           (when (or (and (eq (downcase (following-char)) ?x)
                           (looking-at "Xref:"))
                      (search-forward "\nXref:" nil t))
              (goto-char (1+ (match-end 0)))
@@ -7498,7 +7498,7 @@ marked."
       ;; Go to the right position on the line.
       (goto-char (+ forward (point)))
       ;; Replace the old mark with the new mark.
-      (subst-char-in-region (point) (1+ (point)) (char-after (point)) mark)
+      (subst-char-in-region (point) (1+ (point)) (following-char) mark)
       ;; Optionally update the marks by some user rule.
       (when (eq type 'unread)
         (gnus-data-set-mark

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 406979c..cb071ce 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -226,7 +226,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.4.57"
+(defconst gnus-version-number "5.4.58"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/lisp/mailheader.el b/lisp/mailheader.el
index 5f6f60f..5e2b097 100644 (file)
--- a/lisp/mailheader.el
+++ b/lisp/mailheader.el
@@ -60,7 +60,7 @@ that name."
        start end)
     (while (and (setq start (point))
                (> (skip-chars-forward "^\0- :") 0)
-               (= (char-after (point)) ?:)
+               (= (following-char) ?:)
                (setq end (point))
                (progn (forward-char)
                       (> (skip-chars-forward " \t") 0)))

diff --git a/lisp/message.el b/lisp/message.el
index 22f2a30..87a1657 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -921,12 +921,12 @@ The cdr of ech entry is a function for applying the face to a region.")
                               (not paren))))
                 (push (buffer-substring beg (point)) elems)
                 (setq beg (match-end 0)))
-               ((= (char-after (point)) ?\")
+               ((= (following-char) ?\")
                 (setq quoted (not quoted)))
-               ((and (= (char-after (point)) ?\()
+               ((and (= (following-char) ?\()
                      (not quoted))
                 (setq paren t))
-               ((and (= (char-after (point)) ?\))
+               ((and (= (following-char) ?\))
                      (not quoted))
                 (setq paren nil))))
        (nreverse elems)))))
@@ -1832,7 +1832,7 @@ the user from the mailer."
            (message-remove-header message-ignored-mail-headers t))
          (goto-char (point-max))
          ;; require one newline at the end.
-         (or (= (char-before (point)) ?\n)
+         (or (= (preceding-char) ?\n)
              (insert ?\n))
          (when (and news
                     (or (message-fetch-field "cc")
@@ -2009,7 +2009,7 @@ to find out how to use this."
              (message-remove-header message-ignored-news-headers t))
            (goto-char (point-max))
            ;; require one newline at the end.
-           (or (= (char-before (point)) ?\n)
+           (or (= (preceding-char) ?\n)
                (insert ?\n))
            (let ((case-fold-search t))
              ;; Remove the delimiter.
@@ -2676,7 +2676,7 @@ Headers already prepared in the buffer are not modified."
                  (progn
                    ;; The header was found.  We insert a space after the
                    ;; colon, if there is none.
-                   (if (/= (char-after (point)) ? ) (insert " ") (forward-char 1))
+                   (if (/= (following-char) ? ) (insert " ") (forward-char 1))
                    ;; Find out whether the header is empty...
                    (looking-at "[ \t]*$")))
          ;; So we find out what value we should insert.
@@ -2784,7 +2784,7 @@ Headers already prepared in the buffer are not modified."
       (goto-char (point-min))
       (while (not (eobp))
        (skip-chars-forward "^,\"" (point-max))
-       (if (or (= (char-after (point)) ?,)
+       (if (or (= (following-char) ?,)
                (eobp))
            (when (not quoted)
              (if (and (> (current-column) 78)
@@ -2831,7 +2831,7 @@ Headers already prepared in the buffer are not modified."
     (search-backward ":" )
     (widen)
     (forward-char 1)
-    (if (= (char-after (point)) ? )
+    (if (= (following-char) ? )
        (forward-char 1)
       (insert " ")))
    (t
@@ -3528,7 +3528,7 @@ which specify the range to operate on."
       (goto-char (min start end))
       (while (< (point) end1)
        (or (looking-at "[_\^@- ]")
-           (insert (char-after (point)) "\b"))
+           (insert (following-char) "\b"))
        (forward-char 1)))))
 
 ;;;###autoload
@@ -3542,7 +3542,7 @@ which specify the range to operate on."
       (move-marker end1 (max start end))
       (goto-char (min start end))
       (while (re-search-forward "\b" end1 t)
-       (if (eq (char-after (point)) (char-after (- (point) 2)))
+       (if (eq (following-char) (char-after (- (point) 2)))
            (delete-char -2))))))
 
 (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index fe0d5c6..06b7b9e 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -257,7 +257,7 @@ on your system, you could say something like:
 
 (defmacro nnheader-nov-read-integer ()
   '(prog1
-       (if (= (char-after (point)) ?\t)
+       (if (= (following-char) ?\t)
           0
         (let ((num (ignore-errors (read (current-buffer)))))
           (if (numberp num) num 0)))
@@ -277,7 +277,7 @@ on your system, you could say something like:
      (nnheader-nov-field)              ; refs
      (nnheader-nov-read-integer)       ; chars
      (nnheader-nov-read-integer)       ; lines
-     (if (= (char-after (point)) ?\n)
+     (if (= (following-char) ?\n)
         nil
        (nnheader-nov-field))           ; misc
      )))

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index a2fc85d..a35cb5e 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -803,7 +803,7 @@ is a spool.  If not using procmail, return GROUP."
          (when (and (or (bobp)
                         (save-excursion
                           (forward-line -1)
-                          (= (char-after (point)) ?\n)))
+                          (= (following-char) ?\n)))
                     (save-excursion
                       (forward-line 1)
                       (while (looking-at ">From \\|From ")
@@ -832,7 +832,7 @@ is a spool.  If not using procmail, return GROUP."
          (when (and (or (bobp)
                         (save-excursion
                           (forward-line -1)
-                          (= (char-after (point)) ?\n)))
+                          (= (following-char) ?\n)))
                     (save-excursion
                       (forward-line 1)
                       (while (looking-at ">From \\|From ")
@@ -1653,11 +1653,11 @@ If ARGS, PROMPT is used as an argument to `format'."
        (goto-char (point-min))
        (while (re-search-forward "[^ \t=]+" nil t)
          (setq name (match-string 0))
-         (if (not (= (char-after (point)) ?=))
+         (if (not (= (following-char) ?=))
              ;; Implied "yes".
              (setq value "yes")
            (forward-char 1)
-           (if (not (= (char-after (point)) ?\"))
+           (if (not (= (following-char) ?\"))
                (if (not (looking-at "[^ \t]"))
                    ;; Implied "no".
                    (setq value "no")

diff --git a/lisp/nnsoup.el b/lisp/nnsoup.el
index e251733..7088c64 100644 (file)
--- a/lisp/nnsoup.el
+++ b/lisp/nnsoup.el
@@ -681,7 +681,7 @@ The SOUP packet file name will be inserted at the %s.")
            (message-remove-header message-ignored-mail-headers t))
          (goto-char (point-max))
          ;; require one newline at the end.
-         (or (= (char-before (point)) ?\n)
+         (or (= (preceding-char) ?\n)
              (insert ?\n))
          (let ((case-fold-search t))
            ;; Change header-delimiter to be what sendmail expects.

diff --git a/lisp/smiley.el b/lisp/smiley.el
index dc2b89a..a66d731 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -242,7 +242,7 @@ above them."
   (save-excursion
     (goto-char start)
     (when (and (re-search-backward "[()]" nil t)
-              (= (char-after (point)) ?\()
+              (= (following-char) ?\()
               (goto-char end)
               (or (not (re-search-forward "[()]" nil t))
                   (= (char-after (1- (point))) ?\()))

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 6bdb1d3..e9c86ef 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.57 Manual
+@settitle Gnus 5.4.58 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -309,7 +309,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.4.57 Manual
+@title Gnus 5.4.58 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -345,7 +345,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Gnus 5.4.57.
+This manual corresponds to Gnus 5.4.58.
 
 @end ifinfo
 

diff --git a/texi/message.texi b/texi/message.texi
index 3599e59..5fed77a 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 5.4.57 Manual
+@settitle Message 5.4.58 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 5.4.57 Manual
+@title Message 5.4.58 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -79,7 +79,7 @@ buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Message 5.4.57.  Message is distributed with
+This manual corresponds to Message 5.4.58.  Message is distributed with
 the Gnus distribution bearing the same version number as this manual
 has.