Path: ...!weretis.net!feeder6.news.weretis.net!feeder8.news.weretis.net!news.trigofacile.com!usenet-fr.net!agneau.org!nntpfeed.proxad.net!proxad.net!feeder1-1.proxad.net!cleanfeed2-a.proxad.net!nnrp1-1.free.fr!not-for-mail
From: yves <yves@free.invalid>
Subject: Message-ID, pan et emacs.
Newsgroups: fr.comp.applications.emacs,fr.comp.usenet.lecteurs-de-news
Followup-To: fr.comp.applications.emacs
User-Agent: Pan/0.144 (Time is the enemy; 28ab3ba git.gnome.org/pan2)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Date: 03 Dec 2021 13:48:02 GMT
Lines: 60
Message-ID: <61aa2012$0$4979$426a74cc@news.free.fr>
Organization: Guest of ProXad - France
NNTP-Posting-Date: 03 Dec 2021 14:48:02 CET
NNTP-Posting-Host: 89.226.117.233
X-Trace: 1638539282 news-3.free.fr 4979 89.226.117.233:39394
X-Complaints-To: abuse@proxad.net
Bytes: 2813


[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