[Mew-dist 12727] mew-ext.el access-type url operation change by message header CT

Ninomiya Hideyuki nin at example.com
2000年 3月 30日 (木) 18:21:43 JST


こんにちは	二宮@お四国 です

Message/External-Body で access-type: url の場合、message header の
CT に依ってそれを扱うプログラムを変更するというのをやってみました。

# External-Body 対応をつめて、はたしてどれほどの効果が有るのかは
# 他の MUA の対応状況次第だけどっ、、、
# 対応してる MUA ってどのぐらい在るの ????

使い方:
default な設定は以下のようにしました。
(defvar mew-ext-url-prog-alist
  '(("^application/" ("Fetch by w3" mew-ext-url-sub-func-fetch-by-w3 nil))
    (t		     ("Browse by netscape" "netscape" ("-install")))))

この構造はこう(↓)です。

(("REGEXP"
  ("DISPLAY STRING" "PROGRAM STRINGS" or 'FUNCTION SYNBOL' (ARGS LIST)))
 ......
 (t (strings1 el2 list3)))

"REGEXP": コンテンツタイプを正規表現で書く。
	  e.g. "^application/","^html/","^image/"
strings1: buffer 表示メッセージです。
	  e.g. "Fetch by w3","Browse by netscape"
el2:	  文字列の時:   外部コマンド実行:
			API: command ARGS... url
			     => el2="command" list3=("arg1" "arg2"..)
	  シンボルの時: elisp 関数呼び出し
			API: (function args-list url)
			     => el2=function list3=(args1 args2 ...)
list3:	  引数のリスト

です。取り合えず

;;; mew-ext-url sub function
;;; API: (mew-ext-url-sub-func-* args-list url)

(defun mew-ext-url-sub-func-w3 (dummy url)
	 (require 'w3)
	 (w3-fetch-other-frame url))

(defun mew-ext-url-sub-func-fetch-by-w3 (dummy url)
	 (require 'w3)
	 (w3-fetch url))

;;; sub function end
# ちょい関数名長すぎ.....
といういい加減なもんを用意しています。# もちょっとましにしたいけど.....

好きな関数を .emacs にでも用意して、
(setq mew-ext-url-prog-alist '(...)) して下さい。
# "^image","^audio" なんか用意するのも面白いかもっ

C-uC-cC-e が欲しくなっちゃったっ、変な CT 付いてる奴の CT を強制的に
変更して扱いたい....

改善の為のご教授、つっこみよろしくお願い致します。m(__)m > 皆様
---
ICQ UIN:57442553                        二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:  http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com http://user.shikoku.ne.jp/~nin/index.html
-------------- next part --------------
H4sIAAAAAAAAA71Y+2/bNhD+2QHyPxyUDZZq088kbZxtaJq1RYCuDZwUWDFvAC3RtlaJUikq
jvfX7/jQw6+kTbHZhi2TH4/He3w88ooH7H4EMVsSdi87LDo8+Pn7X4cH48sbmIURG0FXxmmX
xt0k6Pp3WRdn6lazte8ODwSTImR3IZ+DwJ8sTDj0Ouo92Nf5/PAgCGczIDkQYbH6CTsIIbXl
NAa9Xq/bG3Z7Z9DvjwYvRv1Bo5TearV2YYc96J2MTo5HJ/2GlvnyJZDh6fN2vwct/duHly8P
DwA/bsBmOS+kkJiGEcmYuGMC3CmbhxwYDyClgsYZsHvm55J5OA7A1WMiJlFn9RefwHWLsaoz
W3FJ78mcSaIFFGIcA3I8FEQa4Gb59G/my8cGGVQ1KvyHPTYEIRVeUiGBh5FqaFmNnz1B5VYD
nqKzGfYNSpsBGmaNjQ4KmJ8EjMQsy+ickQWjAepeeqoap1e7OZPBmQbPM34sXSloxsg0n82Y
qHpCjiuX4MCR/n9UfuHPkXo4mnAH0Q3dhDDdpr9KHJQwHYgvhu3+CQbii+P2qYnD9ak+JTn4
lAMqDHLBwK4VpitgOkAnHIWtK1+MvdFuGk3kRP6YIQqM3/aA0dIjBUTRkhk4NnkmoJUR6R1D
q/u5UIlbNKsOZUttKSMREYJxqWwMTZ/6C+Z5dbiSI1iGXOBLIwkDklMhkiWRCXbNFTFUXjSA
eYJ9/oLiJGkSovg45Daaz8+RnjAxKaQLymUSwzQJVsqGMH5z2T8Z9K0MwTCdqfAXZJaIJRUB
OH/94Kg0AGkhtoNEIWdFrjD5BWwI6am9WrTg3Gnofw4gTyFLcuEzmAnUoKmDDdWvPDrDVeZR
VCeORuXoCb9NQA1AN4cZKNe2Qa5SBjZUjnvH7TOMlLPTdn+4j7JyET2NqvTAB1MREU+mm1Qk
PgYu8RPOmfY60UvT4bLe1t9kpK/X7Gmk8k26fScRxYokfbrNr9heI6JCrzmGYSaraXChZjll
FwosBqhGoGKefQuTFUR2pF+bBFb2Fr8lbx33n7cHL6B13B+2Ty1xVaxnRK2JXhf8AGl9HL+r
MRau2IbDBuwy4VKRzC26ZVSglTWeRm4WqNI/pjjgFZJRprlTS1ZRbFR3MSQCjEqqvrNVPE2i
tMw+7RejMuIbik6mSc6DHQgLMYyoxRBOY/YQEDdn5Ew+3yFtnwZqFK6GJ1wFvLfblB9SjBEV
46UdK64qI80D14pR0WY1B0uOOvTwUdumGrILqgIUdVqESL77obNQYHDXur2HaJRs0egiWRoa
xWiqWLS1iUv0ytkOKDRMKZbJUOIkSARxjC4nn9kqM73gNCeTn3Qa59gnViTWFEDTXyaTP+rt
VlHlHyY4jf5sdpxqQTak1Coei6rHwgn7c+5TtM1mP5QY12VfcroD4SyHxrcbWiiAV06s/xnC
cYtSpEyaSzW1UkEHE7iYbvrjORU5FZq0atru6KxiXc9o8LUAommq9jfzRzOhHrpPs3HOuTp2
WDeOUCnHRJzKBZqiB3wqixajmVoEmHm8Yj4zlVbJUC3SnVNOi6BoVRusawZi9xcT4aVGz9AB
qMUzx0pT/jAkTfCMVSNzYw5ZLcq5xj61nWldGJZNoqOT2+iBn+2aYGPXcDVPtsrNn5q9pIbX
WN1s5vfVJjJLosAWUFgvAeYCYIoUIBPKVGJnE096ueAF24C7XODxEbQ8LU57Uo03m6H6omWi
F/1WdoEJNoAGqeggwR5m5EnPBg4motJEtVVbpGLDBTJ7oWBd/UbJUHbSoDZVadpzrPfqtRYK
KCPedl9cX43Wt2wEEQUiz7RLSRmve91VjlgOscJDHllZPOgq9kseCgbN5dC2LIdkxnC5JMEj
giAzoXaSKuWlIYfHwpPsDM/dO8tGuG6xiZFms2azl2yl7SPRW5rDrHK62rJLa8surZpdSl6x
Lqp7DXSNvmPi3TWdWz+XFGVqWRBqk5bJsHlialUb4VccmEr01nkJw/7B4xL27zstlblVK2CL
hYZxsco15PrBp9KrVsGqBWk2MFKb9hi2H1w/eq8bbRurIsgiK6vjq35wx8/5uf6CkPtRHrDD
g6vqNuyOiux/vA6z0z3xPmyw7z5sUN2H2Rk2L8TORoPe9oXYJniA4LPRyfPRQN2eDUxB3z/t
9dt9rOj1w8DeialkeW3LFqIO1aZNW5yofEHZO0oJzmTm01QXi3thhgWarqMKUYl1gDmSbcLX
dyPt/abrOn8pNgt9Xbd2sWJ13uhEn64A65jHyaN284V7QlHb27JfSSmXUFsNrOlqxzuuO3HG
r9++/v164iSiKZsuFpMRrW2KE+fXq5vrdxef4OZ2fPX+7cSB6/GHt+OL32zDDeAW9ubj+8vb
qw/v4ebT+1cf3sHFGNvfXd3cel6n0/GcMs7hagarJIclJhnIBHLUeDlED4NSDhMYkllN6zak
ubk7MqNxF4+SpQo6TMEOi6mfddBN5+cm3/cVhnsBxo/KoJpd10Fb3kMF9At9KNcMvtdthbe8
Bw0Qrfj9f7T+zxj/8VeYQIWyihelCv7gmSFK7CXp081ihRkdYM8MpW02k4fikY3MZIq7mFwk
ATTxWR88nAuwTWi/rbtFdXuGlQBQX9+MqEPRz4UotNW/cOqFDmgYAAA=


Mew-dist メーリングリストの案内