Re: .overview file coding system when caching article.

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

[-- Attachment #1: Type: text/plain, Size: 476 bytes --]

>>>>> In <m3vhnhcw16.fsf@sparky.gnus.org>
>>>>>  Lars Magne Ingebrigtsen <larsi@gnus.org> wrote:

Lars> > + (defvar gnus-write-file-coding-system 'raw-text)
Lars> I don't think this is the right way to do it.  Instead, there
Lars> should probably be a gnus-cache-overview-coding-system-for-write
Lars> thing.  Feel free to submit a patch for that instead.

  I see.
  So this patch is better.

  And what do you think about to read mail from Multiple pop3 server
  package??


[-- Attachment #2: gnus-cache.el.diff --]
[-- Type: application/octet-stream, Size: 1050 bytes --]

*** gnus-cache.el.orig	Tue Aug 25 18:00:00 1998
--- gnus-cache.el	Tue Aug 25 18:01:02 1998
***************
*** 82,87 ****
--- 82,88 ----
  (defvar gnus-cache-buffer nil)
  (defvar gnus-cache-active-hashtb nil)
  (defvar gnus-cache-active-altered nil)
+ (defvar gnus-cache-write-file-coding-system 'raw-text)
  
  (eval-and-compile
    (autoload 'nnml-generate-nov-databases-1 "nnml")
***************
*** 121,127 ****
  	  (set-buffer buffer)
  	  (if (> (buffer-size) 0)
  	      ;; Non-empty overview, write it to a file.
! 	      (gnus-write-buffer overview-file)
  	    ;; Empty overview file, remove it
  	    (when (file-exists-p overview-file)
  	      (delete-file overview-file))
--- 122,129 ----
  	  (set-buffer buffer)
  	  (if (> (buffer-size) 0)
  	      ;; Non-empty overview, write it to a file.
! 	      (let ((coding-system-for-write gnus-cache-write-file-coding-system))
! 		(gnus-write-buffer overview-file))
  	    ;; Empty overview file, remove it
  	    (when (file-exists-p overview-file)
  	      (delete-file overview-file))

[-- Attachment #3: Type: text/plain, Size: 107 bytes --]



-- 
  Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>
  # PGP Public Key : See X-Info header in this message.