Message-ID, pan et emacs.

1 réponse
Avatar
yves
[publié sur fr.comp.usenet.lecteurs-de-news
et fr.comp.applications.emacs,
suivi sur fr.comp.applications.emacs]

Quand sur Usenet un intervenant fait référence Í  un message par son
Message-ID, les utilisateurs de Pan n'ont pas de moyen facile et
rapide de retrouver le message.

Des utilisateurs d'autres lecteurs de news ont probablement le même
problème.

Je suis un utilisateur de Pan, mais j'ai toujours un emacs ouvert
sur mon PC.

Voici donc une fonction emacs maison pour retrouver un message Í 
partir de son Message-ID

** mode d'emploi

- copier un Message-ID dans le presse-papier (par exemple, sélection et
controle-C dans Pan 0.144).

- basculer sur emacs, et appeler la fonction myMessageID (Alt-x
myMessageID)

- la fonction "nettoie" la chaÍ®ne de caractère du presse-papier
(clipboard), en fait une url (sur restoux), et lance le browser
automatiquement sur cette
url.

------- début code ----

(require 'browse-url)
(defun myMessageID()
"selectionne la string dans le clipboard"
(interactive)
(setq word (current-kill 0))
(setq word (replace-regexp-in-string "<" "" word))
(setq word (replace-regexp-in-string ">" "" word))
(setq word (replace-regexp-in-string "\n" "" word))
(setq word (replace-regexp-in-string " " "" word))
(setq word (replace-regexp-in-string "^news:" "" word))
(setq word (replace-regexp-in-string "Message-ID:" "" word))
(setq word (replace-regexp-in-string "MessageID:" "" word))
(setq url (concat "http://www.restoux.org/index.php?mid=" word))
;;(goto-char (point-min))
;;(insert word)
(browse-url url ))

--- fin code -----

Pour l'instant, je suis Í  peu près content, mais n'hésitez pas si vous
avez des suggestions.



@+
--
Yves

1 réponse

Avatar
Jo Engo
Le 03 Dec 2021 13:48:02 GMT, yves a écrit :
(setq word (current-kill 0))
(setq word (replace-regexp-in-string "<" "" word))
(setq word (replace-regexp-in-string ">" "" word))
(setq word (replace-regexp-in-string "n" "" word))
(setq word (replace-regexp-in-string " " "" word))
(setq word (replace-regexp-in-string "^news:" "" word))
(setq word (replace-regexp-in-string "Message-ID:" "" word)) (setq
word (replace-regexp-in-string "MessageID:" "" word)) (setq url
(concat "http://www.restoux.org/index.php?mid=" word))

Les autres archiveurs n'ont pas cette syntaxe : les <> sont conservés
(alphanet, howardk, ...)
--
On passe sa vie Í  modifier ses définitions du bonheur et du malheur.
-+- Gilbert Cesbron (1913-1979), de petites choses. -+-