Re: mmencode vs. mimencode
Yoichi NAKAYAMA <[email protected]>
| Newsgroups | gmane.mail.wanderlust.general.japanese,gmane.mail.emacs.mime.japanese |
|---|---|
| Organization | Geiin.org |
| Message-ID | <87smbeonuy.wl%[email protected]> |
At Sun, 25 Jul 2004 22:19:04 +0900, Yoichi NAKAYAMA wrote: > Gentoo (というか Debian 由来のパッチ)では mmencode は > mimencode にリネームされているようです。(*1) > どなたか事情を御存知な方はおられませんでしょうか。 > > flim では metamail 中の元々の名前である mmencode に > 決めうたれているのですが、上記リネームの事情によっては > そこの変更も必要になるかもしれませんので。 > > (*1) http://lists.debian.or.jp/debian-users/199909/msg00116.html 改名の事情はまだわかっていないのですが、添付のようにしてしまって よいでしょうか？ mmencode のコマンド名が違っている場合、エラーになった後からでも mime-mmencode-command-name を変更すれば動きます。
flim-mmencode.diff
(application/octet-stream, 3.2 KB)
Index: mel-g.el
===================================================================
RCS file: /cvs/root/flim/mel-g.el,v
retrieving revision 1.6.6.3
diff -u -r1.6.6.3 mel-g.el
--- mel-g.el 25 Jul 2004 12:27:51 -0000 1.6.6.3
+++ mel-g.el 26 Jul 2004 14:10:01 -0000
@@ -39,21 +39,17 @@
;;; @ variables
;;;
+(unless (exec-installed-p mime-mmencode-command-name)
+ (error "Please install mmencode command included in metamail package."))
+
(defvar gzip64-external-encoder
- (let ((file (exec-installed-p "mmencode")))
- (and file
- (` ("sh" "-c" (, (concat "gzip -c | " file))))))
+ (` ("sh" "-c" (, (concat "gzip -c | " mime-mmencode-command-name))))
"*list of gzip64 encoder program name and its arguments.")
(defvar gzip64-external-decoder
- (let ((file (exec-installed-p "mmencode")))
- (and file
- (` ("sh" "-c" (, (concat file " -u | gzip -dc"))))))
+ (` ("sh" "-c" (, (concat mime-mmencode-command-name " -u | gzip -dc"))))
"*list of gzip64 decoder program name and its arguments.")
-(unless (and gzip64-external-encoder gzip64-external-decoder)
- (error "Please install mmencode command."))
-
;;; @ encoder/decoder for region
;;;
Index: mel-q.el
===================================================================
RCS file: /cvs/root/flim/mel-q.el,v
retrieving revision 1.12.6.4
diff -u -r1.12.6.4 mel-q.el
--- mel-q.el 27 Jan 2004 14:16:39 -0000 1.12.6.4
+++ mel-q.el 26 Jul 2004 14:10:01 -0000
@@ -33,6 +33,8 @@
;; XXx: by the module "pces" which will be loaded by way of "poem".
(require 'poem))
+(unless (exec-installed-p mime-mmencode-command-name)
+ (error "Please install mmencode command included in metamail package."))
;;; @ Quoted-Printable encoder
;;;
@@ -93,7 +95,7 @@
(setq col (+ col 3)))))))))))
-(defvar quoted-printable-external-encoder '("mmencode" "-q")
+(defvar quoted-printable-external-encoder `(,mime-mmencode-command-name "-q")
"*list of quoted-printable encoder program name and its arguments.")
(defun quoted-printable-external-encode-region (start end)
@@ -116,7 +118,7 @@
(if (and (featurep 'xemacs)(featurep 'mule))
0
(require 'path-util)
- (if (exec-installed-p "mmencode")
+ (if (exec-installed-p mime-mmencode-command-name)
1000
;; XXX: Fix this message, or simply remove it.
;; (message "Don't found external encoder for Quoted-Printable!")
@@ -205,7 +207,7 @@
;; invalid encoding.
))))))
-(defvar quoted-printable-external-decoder '("mmencode" "-q" "-u")
+(defvar quoted-printable-external-decoder `(,mime-mmencode-command-name "-q" "-u")
"*list of quoted-printable decoder program name and its arguments.")
(defun quoted-printable-external-decode-region (start end)
Index: mime-def.el
===================================================================
RCS file: /cvs/root/flim/mime-def.el,v
retrieving revision 1.51.4.20
diff -u -r1.51.4.20 mime-def.el
--- mime-def.el 14 Dec 2003 15:30:10 -0000 1.51.4.20
+++ mime-def.el 26 Jul 2004 14:10:01 -0000
@@ -66,6 +66,12 @@
:group 'mime
:type '(repeat string))
+(defcustom mime-mmencode-command-name "mmencode"
+ "Command name of mmencode destributed in metamail package.
+\(sometimes renamed to mimencode)"
+ :group 'mime
+ :type 'string)
+
;;; @@ for encoded-word
;;;