Re: Quassia Gnus v0.13 is released

[Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=NIL, Size: 790 bytes --]


  I have one question.

  pop3.el in qgnus-0.12 has variable pop3-movemail-file-coding-system , but
  pop3.el in qgnus-0.13 does't have pop3-movemail-file-coding-system.

  Why did you remove this variable...

  I checked pop3.el's version in qgnus-0.13 is "Version: 1.3h" , but 
  pop3.el's version in qgnus-0.12 is "Version: 1.3g".

  I guess Lars forgot apply morioka@jaist.ac.jp's patch.

  Please apply below patch.

>>>>> In <m3k9elol66.fsf@sparky.gnus.org> 
>>>>>	Lars Magne Ingebrigtsen <larsi@ifi.uio.no> wrote:
> Sun Oct 12 23:54:55 1997  ISO-2022-JP  <ichikawa@hv.epson.co.jp>

> 	* gnus-agent.el (gnus-agent-article-file-coding-system): New
> 	variable. 

  I send a gnus-aget patch , but that is may be broken.
  So , I re-send patch to work gnus-agent with mule.

  Thanks.


[-- Attachment #2: qgnus-patch.diff --]
[-- Type: application/octet-stream, Size: 2357 bytes --]

*** gnus-agent.el.orig	Fri Nov 07 17:12:49 1997
--- gnus-agent.el	Fri Nov 07 17:13:21 1997
***************
*** 608,616 ****
  	    (if (not (re-search-forward "^Message-ID: *<\\([^>\n]+\\)>" nil t))
  		(setq id "No-Message-ID-in-article")
  	      (setq id (buffer-substring (match-beginning 1) (match-end 1))))
! 	    (write-region (point-min) (point-max)
! 			  (concat dir (number-to-string (caar pos)))
! 			  nil 'silent)
  	    (when (setq elem (assq (caar pos) gnus-agent-article-alist))
  	      (setcdr elem t))
  	    (gnus-agent-enter-history
--- 608,617 ----
  	    (if (not (re-search-forward "^Message-ID: *<\\([^>\n]+\\)>" nil t))
  		(setq id "No-Message-ID-in-article")
  	      (setq id (buffer-substring (match-beginning 1) (match-end 1))))
! 	    (let ((coding-system-for-write gnus-agent-article-file-coding-system))
! 	      (write-region (point-min) (point-max)
! 			    (concat dir (number-to-string (caar pos)))
! 			    nil 'silent))
  	    (when (setq elem (assq (caar pos) gnus-agent-article-alist))
  	      (setcdr elem t))
  	    (gnus-agent-enter-history
*** pop3.el.orig	Fri Nov 07 17:11:21 1997
--- pop3.el	Fri Nov 07 17:11:21 1997
***************
*** 60,65 ****
--- 60,68 ----
    "Timestamp returned when initially connected to the POP server.
  Used for APOP authentication.")
  
+ (defvar pop3-movemail-file-coding-system nil
+   "Crashbox made by pop3-movemail with this coding system.")
+ 
  (defvar pop3-read-point nil)
  (defvar pop3-debug nil)
  
***************
*** 91,97 ****
        (pop3-retr process n crashbuf)
        (save-excursion
  	(set-buffer crashbuf)
! 	(append-to-file (point-min) (point-max) crashbox)
  	(set-buffer (process-buffer process))
  	(while (> (buffer-size) 5000)
  	  (goto-char (point-min))
--- 94,101 ----
        (pop3-retr process n crashbuf)
        (save-excursion
  	(set-buffer crashbuf)
! 	(let ((coding-system-for-write pop3-movemail-file-coding-system))
! 	  (append-to-file (point-min) (point-max) crashbox))
  	(set-buffer (process-buffer process))
  	(while (> (buffer-size) 5000)
  	  (goto-char (point-min))

-- 
Tatsuya Ichikawa : Epson Software Development Lab, Inc. Nagano , Japan. ;-)
# PGP Public Key : See below url.
  http://www.icat.or.jp/cgi-bin/pgpsearchkey.pl?op=get&search=0x0A2D6599
       E-mail    : <ichikawa@hv.epson.co.jp><t-ichi@po.shiojiri.ne.jp>