en/decode-coding-string in contrib/gnus-namazu.el

en/decode-coding-string in contrib/gnus-namazu.el

[Adam Sjøgren]

  Hi.


xemacs21-mule has recently started to crash on my box¹ in some
circumstances², so I've switched (hopefully temporarily) to -nomule.

I had a slight problem in doing this, which stems from
contrib/gnus-namazu.el calling en/decode-coding-string directly. By
grepping in lisp/*.el I gather that the mm-prefixed versions should be
used?

This patch allows me to start Gnus on -nomule:

--- gnus-namazu.el      6 Jul 2005 06:42:01 -0000       7.5
+++ gnus-namazu.el      16 Dec 2005 21:08:45 -0000
@@ -252,11 +252,11 @@
  (fboundp 'gnus-group-decoded-name)
  (let ((gnus-group-name-charset-group-alist
        (list (cons gnus-namazu/group-name-regexp gnus-namazu-coding-system)))
-       (query (decode-coding-string (string 27 36 66 52 65 59 122 27 40 66)
+       (query (mm-decode-coding-string (string 27 36 66 52 65 59 122 27 40 66)
                                    'iso-2022-7bit)))
    (not (string-match query
                      (gnus-summary-buffer-name
-                      (encode-coding-string
+                      (mm-encode-coding-string
                        (concat "nnvirtual:namazu-search?query=" query)
                        gnus-namazu-coding-system)))))
  (let (current-load-list)



  Best regards,

    Adam


¹ I run Debian/unstable.

² If I open a file in a directory with an 'ø' in it's name and do M-x
  shell (!) - xemacs21-mule crashes, but I can't get a core-dump from
  it, so it's hard to report. -nomule does not crash.

-- 
 "Scare yourself up against the wall"                         Adam Sjøgren
                                                         asjo@koldfront.dk

Re: en/decode-coding-string in contrib/gnus-namazu.el

[Adam Sjøgren]

On Fri, 16 Dec 2005 22:13:02 +0100, Adam wrote:

> This patch allows me to start Gnus on -nomule:

Sorry, I missed one call; updated patch:

--- gnus-namazu.el      6 Jul 2005 06:42:01 -0000       7.5
+++ gnus-namazu.el      16 Dec 2005 21:29:04 -0000
@@ -252,11 +252,11 @@
  (fboundp 'gnus-group-decoded-name)
  (let ((gnus-group-name-charset-group-alist
        (list (cons gnus-namazu/group-name-regexp gnus-namazu-coding-system)))
-       (query (decode-coding-string (string 27 36 66 52 65 59 122 27 40 66)
+       (query (mm-decode-coding-string (string 27 36 66 52 65 59 122 27 40 66)
                                    'iso-2022-7bit)))
    (not (string-match query
                      (gnus-summary-buffer-name
-                      (encode-coding-string
+                      (mm-encode-coding-string
                        (concat "nnvirtual:namazu-search?query=" query)
                        gnus-namazu-coding-system)))))
  (let (current-load-list)
@@ -661,7 +661,7 @@
          ;; Generate virtual group which includes all results.
          (when (fboundp 'gnus-group-decoded-name)
            (setq vgroup
-                 (encode-coding-string vgroup gnus-namazu-coding-system)))
+                 (mm-encode-coding-string vgroup gnus-namazu-coding-system)))
          (setq vgroup
                (gnus-group-read-ephemeral-group
                 vgroup

Searching with C-c C-n now works again.


  Best regards,

-- 
 "Scare yourself up against the wall"                         Adam Sjøgren
                                                         asjo@koldfront.dk

Re: en/decode-coding-string in contrib/gnus-namazu.el

[Katsumi Yamaoka]

TSUCHIYA-san,

contrib/gnus-namazu.el seems that there are many codes in which
the Mule feature is required to be, and I didn't know it works
with non-Mule XEmacs up to now.  Adam Sjøgren proposed a means
in order to make it work with non-Mule Emacsen.  Do you have any
idea on things required in addition to this?  For instance, is
the default value of `gnus-namazu-coding-system' proper?

Finally, could you please modify the module by yourself?

Thanks in advance.

>>>>> In <87vexoagpt.fsf@koldfront.dk> Adam Sjøgren wrote:

>   Hi.

> xemacs21-mule has recently started to crash on my box¹ in some
> circumstances², so I've switched (hopefully temporarily) to -nomule.

> I had a slight problem in doing this, which stems from
> contrib/gnus-namazu.el calling en/decode-coding-string directly. By
> grepping in lisp/*.el I gather that the mm-prefixed versions should be
> used?

> This patch allows me to start Gnus on -nomule:

>>>>> In <87d5jwennj.fsf@koldfront.dk> Adam Sjøgren wrote:

--- gnus-namazu.el      6 Jul 2005 06:42:01 -0000       7.5
+++ gnus-namazu.el      16 Dec 2005 21:29:04 -0000
@@ -252,11 +252,11 @@
  (fboundp 'gnus-group-decoded-name)
  (let ((gnus-group-name-charset-group-alist
        (list (cons gnus-namazu/group-name-regexp gnus-namazu-coding-system)))
-       (query (decode-coding-string (string 27 36 66 52 65 59 122 27 40 66)
+       (query (mm-decode-coding-string (string 27 36 66 52 65 59 122 27 40 66)
                                    'iso-2022-7bit)))
    (not (string-match query
                      (gnus-summary-buffer-name
-                      (encode-coding-string
+                      (mm-encode-coding-string
                        (concat "nnvirtual:namazu-search?query=" query)
                        gnus-namazu-coding-system)))))
  (let (current-load-list)
@@ -661,7 +661,7 @@
          ;; Generate virtual group which includes all results.
          (when (fboundp 'gnus-group-decoded-name)
            (setq vgroup
-                 (encode-coding-string vgroup gnus-namazu-coding-system)))
+                 (mm-encode-coding-string vgroup gnus-namazu-coding-system)))
          (setq vgroup
                (gnus-group-read-ephemeral-group
                 vgroup

> Searching with C-c C-n now works again.

>   Best regards,