Message-ID, pan et emacs.

[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