X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-soup.el;h=1fdd83f898511bd02747607755f41a286d0d5d6c;hb=e3e1d7efc8df0f0140d9e531fb49e9b692d0a9ef;hp=08f817610ab5bdfc0fdbb4d337b2381ae2cf055d;hpb=7bd51e7e85c1b314c2f2d00ebb26678762820d73;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 08f8176..1fdd83f 100644
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -380,12 +380,12 @@ though the two last may be nil if they are missing."
 	  (push (vector (gnus-soup-field)
 			(gnus-soup-field)
 			(gnus-soup-field)
-			(and (eq (preceding-char) ?\t)
+			(and (eq (char-before) ?\t)
 			     (gnus-soup-field))
-			(and (eq (preceding-char) ?\t)
+			(and (eq (char-before) ?\t)
 			     (string-to-int (gnus-soup-field))))
 		areas)
-	  (when (eq (preceding-char) ?\t)
+	  (when (eq (char-before) ?\t)
 	    (beginning-of-line 2)))
 	(kill-buffer (current-buffer))))
     areas))
@@ -403,7 +403,7 @@ file.  The vector contain three strings, [prefix name encoding]."
 	(push (vector (gnus-soup-field) (gnus-soup-field)
 		      (gnus-soup-field))
 	      replies)
-	(when (eq (preceding-char) ?\t)
+	(when (eq (char-before) ?\t)
 	  (beginning-of-line 2)))
       (kill-buffer (current-buffer)))
     replies))
@@ -540,8 +540,7 @@ Return whether the unpacking was successful."
 	      (search-forward "\n\n")
 	      (forward-char -1)
 	      (insert mail-header-separator)
-	      (setq message-newsreader (setq message-mailer
-					     (gnus-extended-version)))
+	      (setq message-user-agent (gnus-extended-version))
 	      (cond
 	       ((string= (gnus-soup-reply-kind (car replies)) "news")
 		(gnus-message 5 "Sending news message to %s..."