-
Notifications
You must be signed in to change notification settings - Fork 27
/
recode.el
517 lines (414 loc) · 20.8 KB
/
recode.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
;;; recode.el --- Outils divers autour des jeux de caractères nationaux.
;;; Copyright © 1995, 1997 Progiciels Bourbeau-Pinard inc.
;;; François Pinard <pinard@iro.umontreal.ca>, Mars 1995.
;; Ce programme est un logiciel libre; vous pouvez le redistribuer ou le
;; modifier selon les termes de la License Publique Générale de GNU, publiée
;; par la Free Software Foundation (soit la version 2 ou soit, à votre
;; discrétion, toute version ultérieure).
;; Ce programme est distribué pour être utile, mais SANS AUCUNE GARANTIE;
;; sans même la garantie implicite qu'il est DE QUALITÉ LOYALE ET MARCHANDE
;; ou APPROPRIÉ POUR UN BUT PARTICULIER. Voir la Licence Publique Générale
;; de GNU pour plus de détails.
;; Vous devriez avoir reçu copie de la Licence Publique Générale de GNU
;; avec ce programme; sinon, écrire à la Free Software Foundation, Inc.,
;; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Les outils sont regroupés par thème fonctionnel, un par page. ;;;
;;; La documentation est au début de chacune de ces pages. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Ces outils ne fonctionnent pleinement qu'avec Emacs 19. Dans la
;;; mesure où ces corrections ne brisent rien qui fonctionne déjà,
;;; j'accepterai avec plaisir vos corrections pour les autres Emacs,
;;; mais je ne prendrai pas le temps de les développer moi-même.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Installation rapide. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Voici une recette d'installation rapide, à l'intention d'usagers
;;; placés dans un environnement où les administrateurs des systèmes
;;; ont une attitude amicale. Elle présume qu'ils ont déjà installé
;;; Emacs 19, metamail, procmail et recode dans le système, et qu'ils
;;; ont aussi placé charset.el, mime.el, rmailmime.el et metamail.el
;;; dans les répertoires déjà fouillés par Emacs pour son code LISP.
;;; Cela suffira probablement aux débrouillards. Je vous invite
;;; néanmoins à lire la documentation détaillée qui apparaît, dans les
;;; pages subséquentes de ce fichier.
;;; Voici donc, succintement, une liste des ajouts que vous avez à
;;; faire à quelques fichiers pour activer le tout au mieux (à mon
;;; avis). Il vous faut éliminer le «;;; » au début de chaque ligne.
;;; Dans ~/.procmailrc:
;;; ======================================================================>
;;; :0 fbw
;;; * ^Content-Transfer-Encoding:.*quoted-printable
;;; | recode /qp..
;;; :0 Afhw
;;; | formail -i 'Content-Transfer-Encoding: 8bit'
;;; ======================================================================<
;;; Dans ~/.forward (remplacer "pinard" par votre login):
;;; ======================================================================>
;;; "|IFS=' ' && exec /usr/local/bin/procmail -f- || exit 75 #pinard"
;;; ======================================================================<
;;; Dans ~/.emacs:
;;; ======================================================================>
;;; (setq extended-charset t)
;;; (require 'charset)
;;; (standard-display-european 1)
;;; (require 'iso-syntax))
;;; (global-set-key "\C-cB" 'recode-base64)
;;; (global-set-key "\C-cI" 'recode-ibmpc)
;;; ;; (global-set-key "\C-cL" 'recode-latin1)
;;; (global-set-key "\C-cM" 'recode-macintosh)
;;; (global-set-key "\C-cQ" 'recode-quoted-printable)
;;; (global-set-key "\C-cT" 'recode-texte)
;;; (global-set-key "\C-cE" 'toggle-extended-charset)
;;; (global-set-key "\C-cK" 'toggle-sentence-spacing)
;;; (global-set-key "\C-cL" 'toggle-sorting-charset)
;;; (global-set-key "\C-cR" 'toggle-case-replace)
;;; (global-set-key "\C-cS" 'toggle-case-fold-search)
;;; ======================================================================<
;;; Assurez-vous que ~/.forward et ~/.procmailrc sont lisibles par tout le
;;; monde, avec la commande:
;;; chmod 644 ~/.forward ~/.procmailrc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Préparation générale. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Pour préparer Emacs à travailler en français avec vous et avec
;;; l'aide des outils documentés ici, il faut copier ce fichier
;;; «recode.el» dans un répertoire où vous placez vos fichiers «.el».
;;; Si vous n'avez pas un tel répertoire, fabriquez-vous en un. Pour
;;; un, j'utilise ~pinard/share/site-lisp/ à cet effet. Faites le
;;; remplacement qui s'impose dans l'exemple qui suit. Ajouter les
;;; lignes suivantes dans votre fichier .emacs (sans les «;;;»), ou si
;;; vous n'en avez pas, créez-le au besoin:
;;; (setq load-path
;;; (cons (expand-file-name "~pinard/share/site-lisp")
;;; load-path))
;;; (setq extended-charset t)
;;; (standard-display-european 1)
;;; (require 'iso-syntax)
;;; Vous n'avez pas à ajouter les lignes suivantes:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Décodages et réencodages de régions. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Fonctionne avec Emacs 18, Emacs 19, et probablement XEmacs.
;;; Les outils suivants exigent la préinstallation de recode, qui peut être
;;; obtenu de gnu.org, dans le répertoire pub/gnu, sous le nom
;;; recode-3.4.tar.gz ou mieux, de ftp.iro.umontreal.ca, dans le répertoire
;;; pub/contrib/pinard/gnu, sous le nom recode-3.4d.tar.gz.
;;; Pour décoder une région Emacs vers le Latin-1, il faut utiliser
;;; l'une des commandes suivantes (attention aux majuscules):
;;; C-c B si le texte est codé en Base64 de MIME
;;; C-c I si le texte est codé en code d'IBM-PC
;;; C-c L si le texte est codé en Latin-1 (avec demacs sur MSDOS)
;;; C-c M si le texte est codé en code de Macintosh
;;; C-c Q si le texte est codé en quoted-printable
;;; C-c T si le texte est codé en texte (ou easy-french)
;;; Pour encoder une région de Latin-1 vers l'un des codes indiqués,
;;; il suffit de préfixer la commande par «C-u», ce qui a pour effet
;;; de provoquer le codage contraire, si l'on peut dire. Undo («C-x u»
;;; ou «C-_») permet de reculer sur un mauvais choix de décodage.
;;; Pour décoder un message lu par RMAIL, il faut utiliser les
;;; commandes d'édition de message du format RMAIL: d'abord «w»
;;; pour éditer, «C-x h» pour placer la région autour du message
;;; entier, puis la commande de décodage, et «C-c C-c» pour finir.
;;; Par exemple, pour décoder un message en quoted-printable, faire:
;;; w C-x h C-c Q C-c C-c
;;; Ces techniques n'ajustent pas les en-têtes MIME du message.
;;; Pour toutes ces fonctions, dans votre .emacs, placez:
;;; (global-set-key "\C-cB" 'recode-base64)
;;; (global-set-key "\C-cI" 'recode-ibmpc)
;;; ;; (global-set-key "\C-cL" 'recode-latin1)
;;; (global-set-key "\C-cM" 'recode-macintosh)
;;; (global-set-key "\C-cQ" 'recode-quoted-printable)
;;; (global-set-key "\C-cT" 'recode-texte)
;;; (autoload 'recode-base64 "recode" nil t)
;;; (autoload 'recode-ibmpc "recode" nil t)
;;; (autoload 'recode-latin1 "recode" nil t)
;;; (autoload 'recode-macintosh "recode" nil t)
;;; (autoload 'recode-quoted-printable "recode" nil t)
;;; (autoload 'recode-texte "recode" nil t)
;;; Vous n'avez pas à ajouter les lignes suivantes:
(defun recode-base64 (flag)
"Décoder la région courante qui se trouve déjà en base64 de MIME. Si
cette commande est préfixée (par «C-u»), encoder la région courante en
base64 de MIME."
(interactive "P")
(shell-command-on-region (region-beginning) (region-end)
(concat "recode " (if flag "../64" "/64..")) t)
(exchange-point-and-mark))
(defun recode-ibmpc (flag)
"Décoder la région courante qui se trouve déjà exprimée avec le jeu
de caractères de l'IBM-PC. Si cette commande est préfixée (par «C-u»),
encoder la région courante dans le jeu de caractères de l'IBM-PC."
(interactive "P")
(shell-command-on-region (region-beginning) (region-end)
(concat "recode " (if flag "..437" "437..")) t)
(exchange-point-and-mark))
(defun recode-latin1 (flag)
"Décoder la région courante qui se trouve déjà exprimée avec le jeu
de caractères ISO 8859-1 (ou Latin-1). Si cette commande est préfixée
(par «C-u»), encoder la région courante dans le jeu de caractères ISO
8859-1 (ou Latin-1)."
(interactive "P")
(shell-command-on-region (region-beginning) (region-end)
(concat "recode " (if flag "..l1" "l1..")) t)
(exchange-point-and-mark))
(defun recode-macintosh (flag)
"Décoder la région courante qui se trouve déjà exprimée avec le jeu
de caractères du Macintosh. Si cette commande est préfixée (par «C-u»),
encoder la région courante dans le jeu de caractères du Macintosh."
(interactive "P")
(shell-command-on-region (region-beginning) (region-end)
(concat "recode " (if flag "..mac" "mac..")) t)
(exchange-point-and-mark))
(defun recode-quoted-printable (flag)
"Décoder la région courante qui se trouve déjà en quoted-printable
de MIME. Si cette commande est préfixée (par «C-u»), encoder la région
courante en quoted-printable de MIME."
(interactive "P")
(shell-command-on-region (region-beginning) (region-end)
(concat "recode " (if flag "../qp" "/qp..")) t)
(exchange-point-and-mark))
(defun recode-texte (flag)
"Décoder la région courante qui se trouve déjà exprimée avec la
convention Easy French, où l'accent est placée après la lettre plutôt
qu'au-dessus. Si cette commande est préfixée (par «C-u»), encoder la
région courante avec la convention Easy French."
(interactive "P")
(shell-command-on-region (region-beginning) (region-end)
(concat "recode " (if flag "..txte" "txte..")) t)
(exchange-point-and-mark))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Affichage, fouilles, remplacements et tris français. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Fonctionne généralement avec Emacs 18 sauf pour «C-c K»; «C-c E»
;;; ne fonctionne que des versions spécialement modifiées par moi,
;;; versions plutôt rares de nos jours. Fonctionne avec Emacs 19.
;;; J'ignore pour XEmacs.
;;; Ces outils contrôlent l'effet de la capitalisation et des diacritiques
;;; sur l'affichage, sur les fouilles avec ou sans remplacement, et
;;; sur les tris dans Emacs. Notez les majuscules dans les clefs de
;;; commande décrites ci-après.
;;; La commande «C-c E» est une bascule entre l'affichage français ou
;;; l'affichage avec des séquences d'échappement en octal, dans les
;;; fenêtres de Emacs.
;;; La commande «C-c S» est une bascule entre le fait que les divers
;;; outils de fouilles de Emacs ignoreront, ou non, la distinction
;;; entre majuscules et minuscules. Les diacritiques ne sont pas ignorés.
;;; La commande «C-c R» est une bascule entre le fait que les
;;; commandes de fouille et remplacement de Emacs essaient, ou non, de
;;; rétablir dans la chaîne remplacée la capitalisation de la chaîne
;;; appariant le gabarit de fouille. Les diacritiques ne sont pas ignorés.
;;; La commande «C-c K» est une bascule entre le fait que les
;;; commandes de tri de Emacs utiliseront, ou non, l'ordre
;;; lexicographique français. Dans les comparaisons françaises, les
;;; diacritiques ne sont pris en considération que si les chaînes comparées
;;; sont par ailleurs identiques. Les commandes Emacs affectées par
;;; cette bascule sont:
;;; Fonction Emacs Unité de tri Clef
;;; sort-lines lignes toute la ligne
;;; sort-columns lignes le contenu entre deux colonnes
;;; sort-fields lignes le champ indiqué en argument
;;; sort-pages pages toute la page
;;; sort-paragraphs paragraphes tout le paragraphe
;;; sort-regexp-fields occurrences toute l'occurrence ou \N
;;; Pour toutes ces fonctions, dans votre .emacs, placez:
;;; (global-set-key "\C-cE" 'toggle-extended-charset)
;;; (global-set-key "\C-cK" 'toggle-sentence-spacing)
;;; (global-set-key "\C-cL" 'toggle-sorting-charset)
;;; (global-set-key "\C-cR" 'toggle-case-replace)
;;; (global-set-key "\C-cS" 'toggle-case-fold-search)
;;; (autoload 'toggle-extended-charset "charset" nil t)
;;; (autoload 'toggle-sentence-spacing "charset" nil t)
;;; (autoload 'toggle-sorting-charset "charset" nil t)
;;; (autoload 'toggle-case-replace "charset" nil t)
;;; (autoload 'toggle-case-fold-search "charset" nil t)
;;; Vous n'avez pas à ajouter les lignes suivantes:
(defun toggle-variable (variable message-on message-off)
(if (eval variable)
(progn
(set variable nil)
(message message-off))
(set variable t)
(message message-on)))
(defun toggle-extended-charset ()
"Basculer entre le mode d'affichage 8bit pour l'ISO 8859-1 (ou
Latin-1) et le mode d'affichage 7bit, où les caractères dépassant 127
sont exprimés par un «\\» suivi de la valeur octale du caractère."
(interactive)
(toggle-variable 'extended-charset
"Mode d'affichage 8bit pour l'ISO Latin-1"
"Mode d'affichage 7bit pour l'ASCII")
(standard-display-european (if extended-charset 1 -1))
(redraw-display))
;; N'est utile que sur des versions récentes de Emacs. 1995-05-04.
;;
(defun toggle-sentence-spacing ()
"Basculer entre deux espaces requis, ou un espace suffisant, à la fin d'une
phrase, pour les commandes de GNU Emacs opérant sur des phrases."
(interactive)
(toggle-variable 'sentence-end-double-space
"Plus d'un espace requis pour terminer une phrase"
"Une fin de phrase peut n'être suivie que d'un espace"))
(defun toggle-sorting-charset ()
"Basculer l'ordre lexicographique utilisé pour les tris entre la
convention utilisée pour ordonner des mots français, et la convention
se basant uniquement sur la valeur numérique binaire des caractères."
(interactive)
(toggle-variable 'sorting-charset
"Tris en ordre lexicographique français"
"Tris en ordre lexicographique binaire")
(charset-sorts sorting-charset))
(defun toggle-case-fold-search ()
"Basculer entre le repli des majuscules/minuscules durant les
fouilles, et l'absence de tels replis."
(interactive)
(toggle-variable 'case-fold-search
"Fouilles avec repli majuscules/minuscules"
"Fouilles sans repli majuscules/minuscules"))
(defun toggle-case-replace ()
"Basculer entre le fait que les remplacements cherchent, ou non, à
réajuster les majuscules/minuscules selon la capitalisation de chaque
chaîne à remplacer."
(interactive)
(toggle-variable 'case-replace
"Remplacements avec majuscules/minuscules réajustées"
"Remplacements sans ajustement de majuscule/minuscule"))
(setq charset-to-base
(concat
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"\0ABCDEFGHIJKLMNOPQRSTUVWXYZ\0\0\0\0\0"
"\0abcdefghijklmnopqrstuvwxyz\0\0\0\0\0"
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"AAAAAAACEEEEIIII\0NOOOOO\0OUUUUY\0\0"
"aaaaaaaceeeeiiii\0nooooo\0ouuuuy\0y"))
(setq charset-to-diac
(concat
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\4\0"
"\3\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\6\0"
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
"\3\2\4\6\5\8\1\7\3\2\4\5\3\2\4\5\0\6\3\2\4\6\5\0\9\3\2\4\5\2\0\0"
"\3\2\4\6\5\8\1\7\3\2\4\5\3\2\4\5\0\6\3\2\4\6\5\0\9\3\2\4\5\2\0\0"))
(let ((counter 0))
(while (< counter 256)
(if (= (aref charset-to-base counter) 0)
(aset charset-to-base counter counter))
(setq counter (1+ counter))))
(defvar sorting-charset nil)
(or (fboundp 'builtin-compare-buffer-substrings)
(fset 'builtin-compare-buffer-substrings
(symbol-function 'compare-buffer-substrings)))
(defun charset-compare-buffer-substrings
(left-buffer left-start left-end right-buffer right-start right-end)
(or left-buffer (setq left-buffer (current-buffer)))
(or right-buffer (setq right-buffer (current-buffer)))
(let (lstart lend rstart rend result)
(save-excursion
;; Préparer le tampon de gauche avec les bases.
(set-buffer charset-sorts-left-buffer)
(erase-buffer)
(insert-buffer-substring left-buffer left-start left-end)
(setq lstart (point-min))
(setq lend (point-max))
(translate-region lstart lend charset-to-base)
(and case-fold-search (upcase-region lstart lend))
;; Préparer le tampon de droite avec les bases.
(set-buffer charset-sorts-right-buffer)
(erase-buffer)
(insert-buffer-substring right-buffer right-start right-end)
(setq rstart (point-min))
(setq rend (point-max))
(translate-region rstart rend charset-to-base)
(and case-fold-search (upcase-region rstart rend))
;; Comparer les bases.
(setq result (builtin-compare-buffer-substrings
charset-sorts-left-buffer lstart lend
charset-sorts-right-buffer rstart rend))
(if (= result 0)
(progn
;; Préparer le tampon de gauche avec les diacritiques.
(set-buffer charset-sorts-left-buffer)
(erase-buffer)
(insert-buffer-substring left-buffer left-start left-end)
(setq lstart (point-min))
(setq lend (point-max))
(translate-region lstart lend charset-to-diac)
;; Préparer le tampon de droite avec les diacritiques.
(set-buffer charset-sorts-right-buffer)
(erase-buffer)
(insert-buffer-substring right-buffer right-start right-end)
(setq rstart (point-min))
(setq rend (point-max))
(translate-region rstart rend charset-to-diac)
;; Comparer les diacritiques.
(setq result (builtin-compare-buffer-substrings
charset-sorts-left-buffer lstart lend
charset-sorts-right-buffer rstart rend)))))
;; Retourner le résultat de la comparaison.
result))
;;; Faire en sorte que les tris utilisent l'ordre lexicographique
;;; français sous-jacent à l'ISO Latin-1. Ne comparer les
;;; diacritiques qu'en dernier ressort, lorsque la comparaison donne
;;; égal par ailleurs. Un argument nil rétablit le traitement
;;; implicite du départ.
(defun charset-sorts (latin1)
(if latin1
(progn
(fset 'compare-buffer-substrings 'charset-compare-buffer-substrings)
(setq charset-sorts-left-buffer
(get-buffer-create "*Latin1 sorts left*"))
(setq charset-sorts-right-buffer
(get-buffer-create "*Latin1 sorts right*")))
(fset 'compare-buffer-substrings 'builtin-compare-buffer-substrings)
(kill-buffer charset-sorts-left-buffer)
(kill-buffer charset-sorts-right-buffer)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Interfaces pour les codages MIME. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Fonctionne avec Emacs 19. J'ignore pour les autres.
;;; Trois produits différents vous faciliteront l'usage de MIME dans
;;; Emacs: ce sont metamail, procmail et emacs-mime. Nous les
;;; discutons séparément.
;;; -------- ;;;
;;; metamail ;;;
;;; -------- ;;;
;;; Le metamail de Nathaniel Boreinstein est absolument requis, pour
;;; fournir, entre autres choses, les convertions de format de base.
;;; Nous en avons déjà discuté, ailleurs dans ce fichier. metamail
;;; est disponible au site thumper.bellcore.com, dans le répertoire
;;; pub/nsb, sous le nom mm2.7.tar.Z. Il suffit de l'installer pour
;;; que les binaires soient accessibles de votre PATH.
;;; -------- ;;;
;;; procmail ;;;
;;; -------- ;;;
;;; Le procmail de Stephen R. van den Berg, n'est pas requis, mais
;;; c'est un outil luxueux que je vous recommande beaucoup. Il
;;; convertira automatiquement les messages MIME en quoted-printable,
;;; format simple mais habituel, directement en Latin-1, avant même
;;; que vous récupériez vos messages. procmail peut être obtenu de
;;; ftp.informatik.rwth-aachen.de, dans pub/packages/procmail, sous le
;;; nom procmail.tar.gz. Il vous suffit de l'installer quelque part.
;;; Pour activer procmail, vous n'avez rien à faire dans Emacs à
;;; proprement parler. Fabriquez-vous un fichier ~/.forward, lisible
;;; par tout le monde, et contenant (y compris les guillemets):
;;; "|IFS=' ' && exec /usr/local/bin/procmail -f- || exit 75 #pinard"
;;; en remplacant «pinard» par votre nom login et «/usr/local/bin» par
;;; le répertoire contenant le binaire exécutable de procmail.
;;; Fabriquez-vous ensuite un fichier ~/.procmailrc contenant:
;;; :0 fbw
;;; * ^Content-Transfer-Encoding:.*quoted-printable
;;; | recode /qp..
;;; :0 Afhw
;;; | formail -i 'Content-Transfer-Encoding: 8bit'
;;; Il est possible qu'il faille remplacer les appels à «recode» et
;;; «formail» (distribué dans procmail) en y adjoignant le *path* complet,
;;; puisque ces programmes seront exécutés par le système en dehors de votre
;;; environnement habituel.
;;; Compatibilité avec versions précédentes de ce fichier.
(fset 'toggle-sorting-latin1 (symbol-function 'toggle-sorting-charset))
;;; Annoncer que le chargement est complet.
(provide 'recode)