From xemacs-m  Sun Jun 15 16:12:12 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA27419
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 16:12:08 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id OAA09262;
	Sun, 15 Jun 1997 14:12:15 -0700
Date: Sun, 15 Jun 1997 14:12:15 -0700
Message-Id: <199706152112.OAA09262@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: "Karl M. Hegbloom" <karlheg@inetarena.com>
Cc: <xemacs-beta@xemacs.org>
Subject: Re: [patch] gnus/{gnus-{art,group,nocem,salt,soup,spec,srvr,start,sum},
	mailheader,message,nnheader,nnmail,nnsoup,smiley}.el
In-Reply-To: <199706152032.NAA08589@bittersweet.inetarena.com>
References: <199706152032.NAA08589@bittersweet.inetarena.com>
X-Mailer: VM 6.32 under 20.3 "Oslo" XEmacs Lucid (beta7)
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D

 Inevitably, there had to be one... and in the soup too.

8<----------------------------------------------------------------->8
*** gnus-art.el.orig	Sun Jun 15 13:22:40 1997
--- gnus-art.el	Sun Jun 15 13:28:11 1997
***************
*** 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
--- 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
***************
*** 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))))))
  
--- 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))))))
  
***************
*** 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]")
--- 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]")
*** gnus-group.el.orig	Sun Jun 15 13:22:55 1997
--- gnus-group.el	Sun Jun 15 13:28:27 1997
***************
*** 1314,1320 ****
  	(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))
--- 1314,1320 ----
  	(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))
*** gnus-nocem.el.orig	Sun Jun 15 13:24:53 1997
--- gnus-nocem.el	Sun Jun 15 13:28:37 1997
***************
*** 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)
--- 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)
***************
*** 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)
--- 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)
*** gnus-salt.el.orig	Sun Jun 15 13:25:03 1997
--- gnus-salt.el	Sun Jun 15 13:28:48 1997
***************
*** 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)))
--- 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)))
***************
*** 722,728 ****
  	  (while (progn
  		   (unless (bolp)
  		     (forward-char -2))
! 		   (= (following-char) ? ))
  	    (delete-char 1)
  	    (insert (car 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)
*** gnus-spec.el.orig	Sun Jun 15 13:25:52 1997
--- gnus-spec.el	Sun Jun 15 13:28:56 1997
***************
*** 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))
  
--- 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))
  
*** gnus-srvr.el.orig	Sun Jun 15 13:26:05 1997
--- gnus-srvr.el	Sun Jun 15 13:29:07 1997
***************
*** 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
--- 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
*** gnus-start.el.orig	Sun Jun 15 13:26:25 1997
--- gnus-start.el	Sun Jun 15 13:29:16 1997
***************
*** 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
--- 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
***************
*** 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))
--- 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))
***************
*** 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)
--- 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)
***************
*** 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)
--- 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)
***************
*** 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
--- 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
*** gnus-sum.el.orig	Sun Jun 15 13:26:32 1997
--- gnus-sum.el	Sun Jun 15 13:29:30 1997
***************
*** 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.
--- 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.
***************
*** 4250,4256 ****
  
  (defmacro gnus-nov-read-integer ()
    '(prog1
!        (if (= (following-char) ?\t)
  	   0
  	 (let ((num (ignore-errors (read buffer))))
  	   (if (numberp num) num 0)))
--- 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)))
***************
*** 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
  
--- 4300,4306 ----
  		   (gnus-nov-field))	; refs
  		 (gnus-nov-read-integer) ; chars
  		 (gnus-nov-read-integer) ; lines
! 		 (if (= (char-after (point)) ?\n)
  		     nil
  		   (gnus-nov-field)))))	; misc
  
***************
*** 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)))
--- 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)))
***************
*** 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
--- 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
*** mailheader.el.orig	Sun Jun 15 13:27:03 1997
--- mailheader.el	Sun Jun 15 13:29:53 1997
***************
*** 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)))
--- 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)))
*** message.el.orig	Sun Jun 15 13:27:14 1997
--- message.el	Sun Jun 15 13:30:02 1997
***************
*** 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)))))
--- 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)))))
***************
*** 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")
--- 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")
***************
*** 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.
--- 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.
***************
*** 2298,2304 ****
         (concat "^" (regexp-quote mail-header-separator) "$"))
        (while (not (eobp))
  	(when (not (looking-at "[ \t\n]"))
! 	  (setq sum (logxor (ash sum 1) (following-char))))
  	(forward-char 1)))
      sum))
  
--- 2298,2304 ----
         (concat "^" (regexp-quote mail-header-separator) "$"))
        (while (not (eobp))
  	(when (not (looking-at "[ \t\n]"))
! 	  (setq sum (logxor (ash sum 1) (char-after (point)))))
  	(forward-char 1)))
      sum))
  
***************
*** 2675,2681 ****
  		  (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.
--- 2675,2681 ----
  		  (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.
***************
*** 2783,2789 ****
        (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)
--- 2783,2789 ----
        (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)
***************
*** 2830,2836 ****
      (search-backward ":" )
      (widen)
      (forward-char 1)
!     (if (= (following-char) ? )
  	(forward-char 1)
        (insert " ")))
     (t
--- 2830,2836 ----
      (search-backward ":" )
      (widen)
      (forward-char 1)
!     (if (= (char-after (point)) ? )
  	(forward-char 1)
        (insert " ")))
     (t
***************
*** 3527,3533 ****
        (goto-char (min start end))
        (while (< (point) end1)
  	(or (looking-at "[_\^@- ]")
! 	    (insert (following-char) "\b"))
  	(forward-char 1)))))
  
  ;;;###autoload
--- 3527,3533 ----
        (goto-char (min start end))
        (while (< (point) end1)
  	(or (looking-at "[_\^@- ]")
! 	    (insert (char-after (point)) "\b"))
  	(forward-char 1)))))
  
  ;;;###autoload
***************
*** 3541,3547 ****
        (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)
--- 3541,3547 ----
        (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)
*** nnheader.el.orig	Sun Jun 15 13:27:31 1997
--- nnheader.el	Sun Jun 15 13:30:19 1997
***************
*** 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)))
--- 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)))
***************
*** 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
       )))
--- 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
       )))
*** nnmail.el.orig	Sun Jun 15 13:27:42 1997
--- nnmail.el	Sun Jun 15 13:30:27 1997
***************
*** 803,809 ****
  	  (when (and (or (bobp)
  			 (save-excursion
  			   (forward-line -1)
! 			   (= (following-char) ?\n)))
  		     (save-excursion
  		       (forward-line 1)
  		       (while (looking-at ">From ")
--- 803,809 ----
  	  (when (and (or (bobp)
  			 (save-excursion
  			   (forward-line -1)
! 			   (= (char-after (point)) ?\n)))
  		     (save-excursion
  		       (forward-line 1)
  		       (while (looking-at ">From ")
***************
*** 832,838 ****
  	  (when (and (or (bobp)
  			 (save-excursion
  			   (forward-line -1)
! 			   (= (following-char) ?\n)))
  		     (save-excursion
  		       (forward-line 1)
  		       (while (looking-at ">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 ")
***************
*** 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")
--- 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")
*** nnsoup.el.orig	Sun Jun 15 13:27:50 1997
--- nnsoup.el	Sun Jun 15 14:11:40 1997
***************
*** 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.
--- 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.
*** smiley.el.orig	Sun Jun 15 13:28:00 1997
--- smiley.el	Sun Jun 15 13:30:47 1997
***************
*** 254,260 ****
    (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))) ?\()))
--- 254,260 ----
    (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))) ?\()))
8<----------------------------------------------------------------->8

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

