*** pub/rgnus/lisp/gnus-art.el	Wed Jun 18 00:53:18 1997
--- rgnus/lisp/gnus-art.el	Wed Jun 18 01:16:34 1997
***************
*** 762,768 ****
      (when (search-forward "\n\n" nil t)
        (let ((buffer-read-only nil))
  	(while (search-forward "\b" nil t)
! 	  (let ((next (char-after (point)))
  		(previous (char-after (- (point) 2))))
  	    ;; We do the boldification/underlining by hiding the
  	    ;; overstrikes and putting the proper text property
--- 762,768 ----
      (when (search-forward "\n\n" nil t)
        (let ((buffer-read-only nil))
  	(while (search-forward "\b" nil t)
! 	  (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,801 ****
  	    (adaptive-fill-mode t))
  	(while (not (eobp))
  	  (and (>= (current-column) (min fill-column (window-width)))
! 	       (/= (char-before (point)) ?:)
  	       (fill-paragraph nil))
  	  (end-of-line 2))))))
  
--- 795,801 ----
  	    (adaptive-fill-mode t))
  	(while (not (eobp))
  	  (and (>= (current-column) (min fill-column (window-width)))
! 	       (/= (preceding-char) ?:)
  	       (fill-paragraph nil))
  	  (end-of-line 2))))))
  
***************
*** 932,938 ****
    (interactive "r")
    (goto-char from)
    (while (search-forward "=" to t)
!     (cond ((eq (char-after (point)) ?\n)
  	   (delete-char -1)
  	   (delete-char 1))
  	  ((looking-at "[0-9A-F][0-9A-F]")
--- 932,938 ----
    (interactive "r")
    (goto-char from)
    (while (search-forward "=" to t)
!     (cond ((eq (following-char) ?\n)
  	   (delete-char -1)
  	   (delete-char 1))
  	  ((looking-at "[0-9A-F][0-9A-F]")
*** pub/rgnus/lisp/gnus-group.el	Wed Jun 18 00:53:19 1997
--- rgnus/lisp/gnus-group.el	Wed Jun 18 01:16:35 1997
***************
*** 1316,1322 ****
  	(beginning-of-line)
  	(forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
  	(subst-char-in-region
! 	 (point) (1+ (point)) (char-after (point))
  	 (if unmark
  	     (progn
  	       (setq gnus-group-marked (delete group gnus-group-marked))
--- 1316,1322 ----
  	(beginning-of-line)
  	(forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
  	(subst-char-in-region
! 	 (point) (1+ (point)) (following-char)
  	 (if unmark
  	     (progn
  	       (setq gnus-group-marked (delete group gnus-group-marked))
*** pub/rgnus/lisp/gnus-nocem.el	Wed Jun 18 00:53:20 1997
--- rgnus/lisp/gnus-nocem.el	Wed Jun 18 01:16:35 1997
***************
*** 225,231 ****
  	  (when (gnus-gethash (symbol-name group) gnus-newsrc-hashtb)
  	    ;; Valid group.
  	    (beginning-of-line)
! 	    (while (= (char-after (point)) ?\t)
  	      (forward-line -1))
  	    (setq id (buffer-substring (point) (1- (search-forward "\t"))))
  	    (unless (gnus-gethash id gnus-nocem-hashtb)
--- 225,231 ----
  	  (when (gnus-gethash (symbol-name group) gnus-newsrc-hashtb)
  	    ;; Valid group.
  	    (beginning-of-line)
! 	    (while (= (following-char) ?\t)
  	      (forward-line -1))
  	    (setq id (buffer-substring (point) (1- (search-forward "\t"))))
  	    (unless (gnus-gethash id gnus-nocem-hashtb)
***************
*** 233,239 ****
  	      (gnus-sethash id t gnus-nocem-hashtb)
  	      (push id ncm))
  	    (forward-line 1)
! 	    (while (= (char-after (point)) ?\t)
  	      (forward-line 1))))))
        (when ncm
  	(setq gnus-nocem-touched-alist t)
--- 233,239 ----
  	      (gnus-sethash id t gnus-nocem-hashtb)
  	      (push id ncm))
  	    (forward-line 1)
! 	    (while (= (following-char) ?\t)
  	      (forward-line 1))))))
        (when ncm
  	(setq gnus-nocem-touched-alist t)
*** pub/rgnus/lisp/gnus-salt.el	Wed Jun 18 00:53:20 1997
--- rgnus/lisp/gnus-salt.el	Wed Jun 18 01:16:35 1997
***************
*** 663,669 ****
  	  (while (progn
  		   (forward-line -1)
  		   (forward-char col)
! 		   (= (char-after (point)) ? ))
  	    (delete-char 1)
  	    (insert (caddr gnus-tree-parent-child-edges)))
  	  (goto-char beg)))
--- 663,669 ----
  	  (while (progn
  		   (forward-line -1)
  		   (forward-char col)
! 		   (= (following-char) ? ))
  	    (delete-char 1)
  	    (insert (caddr gnus-tree-parent-child-edges)))
  	  (goto-char beg)))
***************
*** 722,728 ****
  	  (while (progn
  		   (unless (bolp)
  		     (forward-char -2))
! 		   (= (char-after (point)) ? ))
  	    (delete-char 1)
  	    (insert (car gnus-tree-parent-child-edges)))
  	  (goto-char beg)
--- 722,728 ----
  	  (while (progn
  		   (unless (bolp)
  		     (forward-char -2))
! 		   (= (following-char) ? ))
  	    (delete-char 1)
  	    (insert (car gnus-tree-parent-child-edges)))
  	  (goto-char beg)
*** pub/rgnus/lisp/gnus-spec.el	Wed Jun 18 00:53:21 1997
--- rgnus/lisp/gnus-spec.el	Wed Jun 18 01:16:36 1997
***************
*** 388,396 ****
  	     (t
  	      nil)))
  	;; User-defined spec -- find the spec name.
! 	(when (= (setq spec (char-after (point))) ?u)
  	  (forward-char 1)
! 	  (setq user-defined (char-after (point))))
  	(forward-char 1)
  	(delete-region spec-beg (point))
  
--- 388,396 ----
  	     (t
  	      nil)))
  	;; User-defined spec -- find the spec name.
! 	(when (= (setq spec (following-char)) ?u)
  	  (forward-char 1)
! 	  (setq user-defined (following-char)))
  	(forward-char 1)
  	(delete-region spec-beg (point))
  
*** pub/rgnus/lisp/gnus-srvr.el	Wed Jun 18 00:53:21 1997
--- rgnus/lisp/gnus-srvr.el	Wed Jun 18 01:16:36 1997
***************
*** 691,697 ****
      (save-excursion
        (beginning-of-line)
        ;; If this group it killed, then we want to subscribe it.
!       (when (= (char-after (point)) ?K)
  	(setq sub t))
        (setq group (gnus-browse-group-name))
        ;; Make sure the group has been properly removed before we
--- 691,697 ----
      (save-excursion
        (beginning-of-line)
        ;; If this group it killed, then we want to subscribe it.
!       (when (= (following-char) ?K)
  	(setq sub t))
        (setq group (gnus-browse-group-name))
        ;; Make sure the group has been properly removed before we
*** pub/rgnus/lisp/gnus-start.el	Wed Jun 18 00:53:21 1997
--- rgnus/lisp/gnus-start.el	Wed Jun 18 01:16:36 1997
***************
*** 1690,1702 ****
  		       (progn
  			 (skip-chars-forward " \t")
  			 (not
! 			  (or (= (char-after (point)) ?=)
! 			      (= (char-after (point)) ?x)
! 			      (= (char-after (point)) ?j)))))
  		  (progn
  		    (set group (cons min max))
  		    ;; if group is moderated, stick in moderation table
! 		    (when (= (char-after (point)) ?m)
  		      (unless gnus-moderated-hashtb
  			(setq gnus-moderated-hashtb (gnus-make-hashtable)))
  		      (gnus-sethash (symbol-name group) t
--- 1690,1702 ----
  		       (progn
  			 (skip-chars-forward " \t")
  			 (not
! 			  (or (= (following-char) ?=)
! 			      (= (following-char) ?x)
! 			      (= (following-char) ?j)))))
  		  (progn
  		    (set group (cons min max))
  		    ;; if group is moderated, stick in moderation table
! 		    (when (= (following-char) ?m)
  		      (unless gnus-moderated-hashtb
  			(setq gnus-moderated-hashtb (gnus-make-hashtable)))
  		      (gnus-sethash (symbol-name group) t
***************
*** 1750,1756 ****
        (let (min max group)
  	(while (not (eobp))
  	  (condition-case ()
! 	      (when (= (char-after (point)) ?2)
  		(read cur) (read cur)
  		(setq min (read cur)
  		      max (read cur))
--- 1750,1756 ----
        (let (min max group)
  	(while (not (eobp))
  	  (condition-case ()
! 	      (when (= (following-char) ?2)
  		(read cur) (read cur)
  		(setq min (read cur)
  		      max (read cur))
***************
*** 1965,1971 ****
  	(unless (boundp symbol)
  	  (set symbol nil))
  	;; It was a group name.
! 	(setq subscribed (= (char-after (point)) ?:)
  	      group (symbol-name symbol)
  	      reads nil)
  	(if (eolp)
--- 1965,1971 ----
  	(unless (boundp symbol)
  	  (set symbol nil))
  	;; It was a group name.
! 	(setq subscribed (= (following-char) ?:)
  	      group (symbol-name symbol)
  	      reads nil)
  	(if (eolp)
***************
*** 1989,1995 ****
  			   (read buf)))
  	      (widen)
  	      ;; If the next character is a dash, then this is a range.
! 	      (if (= (char-after (point)) ?-)
  		  (progn
  		    ;; We read the upper bound of the range.
  		    (forward-char 1)
--- 1989,1995 ----
  			   (read buf)))
  	      (widen)
  	      ;; If the next character is a dash, then this is a range.
! 	      (if (= (following-char) ?-)
  		  (progn
  		    ;; We read the upper bound of the range.
  		    (forward-char 1)
***************
*** 2011,2018 ****
  		(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)
  	      ;; End of line, so we end.
  	      nil)
  	     (t
--- 2011,2018 ----
  		(push num1 reads))
  	      ;; If the next char in ?\n, then we have reached the end
  	      ;; of the line and return nil.
! 	      (/= (following-char) ?\n))
! 	     ((= (following-char) ?\n)
  	      ;; End of line, so we end.
  	      nil)
  	     (t
*** pub/rgnus/lisp/gnus-sum.el	Wed Jun 18 00:53:22 1997
--- rgnus/lisp/gnus-sum.el	Wed Jun 18 01:16:37 1997
***************
*** 2176,2182 ****
      (while (setq point (pop config))
        (when (and (< point (point-max))
  		 (goto-char point)
! 		 (= (char-after (point)) ?\n))
  	(subst-char-in-region point (1+ point) ?\n ?\r)))))
  
  ;; Various summary mode internalish functions.
--- 2176,2182 ----
      (while (setq point (pop config))
        (when (and (< point (point-max))
  		 (goto-char point)
! 		 (= (following-char) ?\n))
  	(subst-char-in-region point (1+ point) ?\n ?\r)))))
  
  ;; Various summary mode internalish functions.
***************
*** 4250,4256 ****
  
  (defmacro gnus-nov-read-integer ()
    '(prog1
!        (if (= (char-after (point)) ?\t)
  	   0
  	 (let ((num (ignore-errors (read buffer))))
  	   (if (numberp num) num 0)))
--- 4250,4256 ----
  
  (defmacro gnus-nov-read-integer ()
    '(prog1
!        (if (= (following-char) ?\t)
  	   0
  	 (let ((num (ignore-errors (read buffer))))
  	   (if (numberp num) num 0)))
***************
*** 4300,4306 ****
  		   (gnus-nov-field))	; refs
  		 (gnus-nov-read-integer) ; chars
  		 (gnus-nov-read-integer) ; lines
! 		 (if (eq (char-after (point)) ?\n)
  		     nil
  		   (gnus-nov-field)))))	; misc
  
--- 4300,4306 ----
  		   (gnus-nov-field))	; refs
  		 (gnus-nov-read-integer) ; chars
  		 (gnus-nov-read-integer) ; lines
! 		 (if (= (following-char) ?\n)
  		     nil
  		   (gnus-nov-field)))))	; misc
  
***************
*** 4409,4415 ****
  	  (save-restriction
  	    (nnheader-narrow-to-headers)
  	    (goto-char (point-min))
! 	    (when (or (and (eq (downcase (char-after (point))) ?x)
  			   (looking-at "Xref:"))
  		      (search-forward "\nXref:" nil t))
  	      (goto-char (1+ (match-end 0)))
--- 4409,4415 ----
  	  (save-restriction
  	    (nnheader-narrow-to-headers)
  	    (goto-char (point-min))
! 	    (when (or (and (eq (downcase (following-char)) ?x)
  			   (looking-at "Xref:"))
  		      (search-forward "\nXref:" nil t))
  	      (goto-char (1+ (match-end 0)))
***************
*** 7498,7504 ****
        ;; 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)
        ;; Optionally update the marks by some user rule.
        (when (eq type 'unread)
          (gnus-data-set-mark
--- 7498,7504 ----
        ;; 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)) (following-char) mark)
        ;; Optionally update the marks by some user rule.
        (when (eq type 'unread)
          (gnus-data-set-mark
*** pub/rgnus/lisp/gnus.el	Wed Jun 18 00:53:23 1997
--- rgnus/lisp/gnus.el	Wed Jun 18 01:16:38 1997
***************
*** 226,232 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.4.57"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 226,232 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.4.58"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
*** pub/rgnus/lisp/mailheader.el	Wed Jun 18 00:53:23 1997
--- rgnus/lisp/mailheader.el	Wed Jun 18 01:16:38 1997
***************
*** 60,66 ****
  	start end)
      (while (and (setq start (point))
  		(> (skip-chars-forward "^\0- :") 0)
! 		(= (char-after (point)) ?:)
  		(setq end (point))
  		(progn (forward-char)
  		       (> (skip-chars-forward " \t") 0)))
--- 60,66 ----
  	start end)
      (while (and (setq start (point))
  		(> (skip-chars-forward "^\0- :") 0)
! 		(= (following-char) ?:)
  		(setq end (point))
  		(progn (forward-char)
  		       (> (skip-chars-forward " \t") 0)))
*** pub/rgnus/lisp/message.el	Wed Jun 18 00:53:24 1997
--- rgnus/lisp/message.el	Wed Jun 18 01:16:38 1997
***************
*** 921,932 ****
  			       (not paren))))
  		 (push (buffer-substring beg (point)) elems)
  		 (setq beg (match-end 0)))
! 		((= (char-after (point)) ?\")
  		 (setq quoted (not quoted)))
! 		((and (= (char-after (point)) ?\()
  		      (not quoted))
  		 (setq paren t))
! 		((and (= (char-after (point)) ?\))
  		      (not quoted))
  		 (setq paren nil))))
  	(nreverse elems)))))
--- 921,932 ----
  			       (not paren))))
  		 (push (buffer-substring beg (point)) elems)
  		 (setq beg (match-end 0)))
! 		((= (following-char) ?\")
  		 (setq quoted (not quoted)))
! 		((and (= (following-char) ?\()
  		      (not quoted))
  		 (setq paren t))
! 		((and (= (following-char) ?\))
  		      (not quoted))
  		 (setq paren nil))))
  	(nreverse elems)))))
***************
*** 1832,1838 ****
  	    (message-remove-header message-ignored-mail-headers t))
  	  (goto-char (point-max))
  	  ;; require one newline at the end.
! 	  (or (= (char-before (point)) ?\n)
  	      (insert ?\n))
  	  (when (and news
  		     (or (message-fetch-field "cc")
--- 1832,1838 ----
  	    (message-remove-header message-ignored-mail-headers t))
  	  (goto-char (point-max))
  	  ;; require one newline at the end.
! 	  (or (= (preceding-char) ?\n)
  	      (insert ?\n))
  	  (when (and news
  		     (or (message-fetch-field "cc")
***************
*** 2009,2015 ****
  	      (message-remove-header message-ignored-news-headers t))
  	    (goto-char (point-max))
  	    ;; require one newline at the end.
! 	    (or (= (char-before (point)) ?\n)
  		(insert ?\n))
  	    (let ((case-fold-search t))
  	      ;; Remove the delimiter.
--- 2009,2015 ----
  	      (message-remove-header message-ignored-news-headers t))
  	    (goto-char (point-max))
  	    ;; require one newline at the end.
! 	    (or (= (preceding-char) ?\n)
  		(insert ?\n))
  	    (let ((case-fold-search t))
  	      ;; Remove the delimiter.
***************
*** 2676,2682 ****
  		  (progn
  		    ;; The header was found.  We insert a space after the
  		    ;; colon, if there is none.
! 		    (if (/= (char-after (point)) ? ) (insert " ") (forward-char 1))
  		    ;; Find out whether the header is empty...
  		    (looking-at "[ \t]*$")))
  	  ;; So we find out what value we should insert.
--- 2676,2682 ----
  		  (progn
  		    ;; The header was found.  We insert a space after the
  		    ;; colon, if there is none.
! 		    (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,2790 ****
        (goto-char (point-min))
        (while (not (eobp))
  	(skip-chars-forward "^,\"" (point-max))
! 	(if (or (= (char-after (point)) ?,)
  		(eobp))
  	    (when (not quoted)
  	      (if (and (> (current-column) 78)
--- 2784,2790 ----
        (goto-char (point-min))
        (while (not (eobp))
  	(skip-chars-forward "^,\"" (point-max))
! 	(if (or (= (following-char) ?,)
  		(eobp))
  	    (when (not quoted)
  	      (if (and (> (current-column) 78)
***************
*** 2831,2837 ****
      (search-backward ":" )
      (widen)
      (forward-char 1)
!     (if (= (char-after (point)) ? )
  	(forward-char 1)
        (insert " ")))
     (t
--- 2831,2837 ----
      (search-backward ":" )
      (widen)
      (forward-char 1)
!     (if (= (following-char) ? )
  	(forward-char 1)
        (insert " ")))
     (t
***************
*** 3528,3534 ****
        (goto-char (min start end))
        (while (< (point) end1)
  	(or (looking-at "[_\^@- ]")
! 	    (insert (char-after (point)) "\b"))
  	(forward-char 1)))))
  
  ;;;###autoload
--- 3528,3534 ----
        (goto-char (min start end))
        (while (< (point) end1)
  	(or (looking-at "[_\^@- ]")
! 	    (insert (following-char) "\b"))
  	(forward-char 1)))))
  
  ;;;###autoload
***************
*** 3542,3548 ****
        (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)))
  	    (delete-char -2))))))
  
  (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)
--- 3542,3548 ----
        (move-marker end1 (max start end))
        (goto-char (min start end))
        (while (re-search-forward "\b" end1 t)
! 	(if (eq (following-char) (char-after (- (point) 2)))
  	    (delete-char -2))))))
  
  (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)
*** pub/rgnus/lisp/nnheader.el	Wed Jun 18 00:53:24 1997
--- rgnus/lisp/nnheader.el	Wed Jun 18 01:16:39 1997
***************
*** 257,263 ****
  
  (defmacro nnheader-nov-read-integer ()
    '(prog1
!        (if (= (char-after (point)) ?\t)
  	   0
  	 (let ((num (ignore-errors (read (current-buffer)))))
  	   (if (numberp num) num 0)))
--- 257,263 ----
  
  (defmacro nnheader-nov-read-integer ()
    '(prog1
!        (if (= (following-char) ?\t)
  	   0
  	 (let ((num (ignore-errors (read (current-buffer)))))
  	   (if (numberp num) num 0)))
***************
*** 277,283 ****
       (nnheader-nov-field)		; refs
       (nnheader-nov-read-integer)	; chars
       (nnheader-nov-read-integer)	; lines
!      (if (= (char-after (point)) ?\n)
  	 nil
         (nnheader-nov-field))		; misc
       )))
--- 277,283 ----
       (nnheader-nov-field)		; refs
       (nnheader-nov-read-integer)	; chars
       (nnheader-nov-read-integer)	; lines
!      (if (= (following-char) ?\n)
  	 nil
         (nnheader-nov-field))		; misc
       )))
*** pub/rgnus/lisp/nnmail.el	Wed Jun 18 00:53:24 1997
--- rgnus/lisp/nnmail.el	Wed Jun 18 01:16:39 1997
***************
*** 803,809 ****
  	  (when (and (or (bobp)
  			 (save-excursion
  			   (forward-line -1)
! 			   (= (char-after (point)) ?\n)))
  		     (save-excursion
  		       (forward-line 1)
  		       (while (looking-at ">From \\|From ")
--- 803,809 ----
  	  (when (and (or (bobp)
  			 (save-excursion
  			   (forward-line -1)
! 			   (= (following-char) ?\n)))
  		     (save-excursion
  		       (forward-line 1)
  		       (while (looking-at ">From \\|From ")
***************
*** 832,838 ****
  	  (when (and (or (bobp)
  			 (save-excursion
  			   (forward-line -1)
! 			   (= (char-after (point)) ?\n)))
  		     (save-excursion
  		       (forward-line 1)
  		       (while (looking-at ">From \\|From ")
--- 832,838 ----
  	  (when (and (or (bobp)
  			 (save-excursion
  			   (forward-line -1)
! 			   (= (following-char) ?\n)))
  		     (save-excursion
  		       (forward-line 1)
  		       (while (looking-at ">From \\|From ")
***************
*** 1653,1663 ****
  	(goto-char (point-min))
  	(while (re-search-forward "[^ \t=]+" nil t)
  	  (setq name (match-string 0))
! 	  (if (not (= (char-after (point)) ?=))
  	      ;; Implied "yes".
  	      (setq value "yes")
  	    (forward-char 1)
! 	    (if (not (= (char-after (point)) ?\"))
  		(if (not (looking-at "[^ \t]"))
  		    ;; Implied "no".
  		    (setq value "no")
--- 1653,1663 ----
  	(goto-char (point-min))
  	(while (re-search-forward "[^ \t=]+" nil t)
  	  (setq name (match-string 0))
! 	  (if (not (= (following-char) ?=))
  	      ;; Implied "yes".
  	      (setq value "yes")
  	    (forward-char 1)
! 	    (if (not (= (following-char) ?\"))
  		(if (not (looking-at "[^ \t]"))
  		    ;; Implied "no".
  		    (setq value "no")
*** pub/rgnus/lisp/nnsoup.el	Wed Jun 18 00:53:24 1997
--- rgnus/lisp/nnsoup.el	Wed Jun 18 01:16:39 1997
***************
*** 681,687 ****
  	    (message-remove-header message-ignored-mail-headers t))
  	  (goto-char (point-max))
  	  ;; require one newline at the end.
! 	  (or (= (char-before (point)) ?\n)
  	      (insert ?\n))
  	  (let ((case-fold-search t))
  	    ;; Change header-delimiter to be what sendmail expects.
--- 681,687 ----
  	    (message-remove-header message-ignored-mail-headers t))
  	  (goto-char (point-max))
  	  ;; require one newline at the end.
! 	  (or (= (preceding-char) ?\n)
  	      (insert ?\n))
  	  (let ((case-fold-search t))
  	    ;; Change header-delimiter to be what sendmail expects.
*** pub/rgnus/lisp/smiley.el	Wed Jun 18 00:53:25 1997
--- rgnus/lisp/smiley.el	Wed Jun 18 01:16:40 1997
***************
*** 242,248 ****
    (save-excursion
      (goto-char start)
      (when (and (re-search-backward "[()]" nil t)
! 	       (= (char-after (point)) ?\()
  	       (goto-char end)
  	       (or (not (re-search-forward "[()]" nil t))
  		   (= (char-after (1- (point))) ?\()))
--- 242,248 ----
    (save-excursion
      (goto-char start)
      (when (and (re-search-backward "[()]" nil t)
! 	       (= (following-char) ?\()
  	       (goto-char end)
  	       (or (not (re-search-forward "[()]" nil t))
  		   (= (char-after (1- (point))) ?\()))
*** pub/rgnus/lisp/ChangeLog	Wed Jun 18 00:53:18 1997
--- rgnus/lisp/ChangeLog	Wed Jun 18 01:16:34 1997
***************
*** 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.
*** pub/rgnus/texi/gnus.texi	Wed Jun 18 00:49:16 1997
--- rgnus/texi/gnus.texi	Wed Jun 18 01:16:41 1997
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.4.57 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.4.58 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 309,315 ****
  @tex
  
  @titlepage
! @title Gnus 5.4.57 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 309,315 ----
  @tex
  
  @titlepage
! @title Gnus 5.4.58 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 345,351 ****
  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.
  
  @end ifinfo
  
--- 345,351 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.4.58.
  
  @end ifinfo
  
*** pub/rgnus/texi/message.texi	Wed Jun 18 00:53:44 1997
--- rgnus/texi/message.texi	Wed Jun 18 01:16:42 1997
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.4.57 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.4.58 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 39,45 ****
  @tex
  
  @titlepage
! @title Message 5.4.57 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 39,45 ----
  @tex
  
  @titlepage
! @title Message 5.4.58 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 79,85 ****
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Message 5.4.57.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has. 
  
--- 79,85 ----
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Message 5.4.58.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has. 
  
*** pub/rgnus/texi/dir	Wed Jun 18 00:54:19 1997
--- rgnus/texi/dir	Wed Jun 18 01:16:42 1997
***************
*** 0 ****
--- 1,33 ----
+ -*- Text -*-
+ The Gnus-realated top node.
+ 
+ File: dir	Node: Top	This is the Gnus Info tree
+ 
+ * Menu: 
+ 
+ * Gnus: (gnus).		The news reader Gnus.
+ * Message: (message).	The Message sending thingamabob.
+ * Widget: (widget).	The Widget library.
+ * Custom: (custom).	The Custom library.
+ -*- Text -*-
+ The Gnus-realated top node.
+ 
+ File: dir	Node: Top	This is the Gnus Info tree
+ 
+ * Menu: 
+ 
+ * Gnus: (gnus).		The news reader Gnus.
+ * Message: (message).	The Message sending thingamabob.
+ * Widget: (widget).	The Widget library.
+ * Custom: (custom).	The Custom library.
+ -*- Text -*-
+ The Gnus-realated top node.
+ 
+ File: dir	Node: Top	This is the Gnus Info tree
+ 
+ * Menu: 
+ 
+ * Gnus: (gnus).		The news reader Gnus.
+ * Message: (message).	The Message sending thingamabob.
+ * Widget: (widget).	The Widget library.
+ * Custom: (custom).	The Custom library.