[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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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. -+-
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. -+-
(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. -+-