>>>>> In <[EMAIL PROTECTED]> Katsumi Yamaoka wrote:
>>>>>> In <[EMAIL PROTECTED]> Chong Yidong wrote:
>> So what needs to be changed?
> I'm now looking into it. However, I think improving of nndoc
> might not help Zhang Wei because the problem looked caused by
> the nntp group. So, I'm not urged by myself so much.
>>>>>> In <[EMAIL PROTECTED]>
>>>>>> Zhang Wei <[EMAIL PROTECTED]> wrote:
> [...]
>> (setq gnus-newsrc-alist
>> '(("\301\367\320\30799.\261\276\265\330\262\342\312\324" 3 ((1 . 8)) ((seen
>> (1 . 8))))...
The following patch enables Gnus to use non-ASCII names in nndoc
groups. I've tested it with the "~/好" file containing mbox
data. After some other tests, I will install it to the Gnus
trunk and the v5-10 branch.
I don't think it solves Zhang Wei's problem anyway, though. I'm
unable to test with nntp groups of non-ASCII names, but IIRC,
Gnus has been completed to run with those groups a couple of
years ago (even if there might still be trivial difficulties).
--8<---------------cut here---------------start------------->8---
*** gnus-group.el~ Mon Jul 17 21:52:02 2006
--- gnus-group.el Fri Oct 20 05:15:50 2006
***************
*** 2680,2692 ****
(t (setq err (format "%c unknown. " char))
nil))))
(setq type found)))
! (let* ((file (expand-file-name file))
! (name (gnus-generate-new-group-name
! (gnus-group-prefixed-name
! (file-name-nondirectory file) '(nndoc "")))))
(gnus-group-make-group
! (gnus-group-real-name name)
! (list 'nndoc file
(list 'nndoc-address file)
(list 'nndoc-article-type (or type 'guess))))))
--- 2680,2697 ----
(t (setq err (format "%c unknown. " char))
nil))))
(setq type found)))
! (setq file (expand-file-name file))
! (let ((name (gnus-generate-new-group-name
! (gnus-group-prefixed-name
! (file-name-nondirectory file) '(nndoc ""))))
! (encodable (mm-coding-system-p 'utf-8)))
(gnus-group-make-group
! (if encodable
! (mm-encode-coding-string (gnus-group-real-name name) 'utf-8)
! (gnus-group-real-name name))
! (list 'nndoc (if encodable
! (mm-encode-coding-string file 'utf-8)
! file)
(list 'nndoc-address file)
(list 'nndoc-article-type (or type 'guess))))))
--8<---------------cut here---------------end--------------->8---
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
