Mercurial > hg > xemacs

comparison my-news.el @ 43:eee08de75336

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to do better at where news/mail/init stuff is handled, works on ecclerig, mostly, but may break maritain
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Sat, 16 Dec 2023 21:10:30 +0000
parents 034ed479179e
children 65ea96008fe0
comparison
equal deleted inserted replaced
42:597d985bf448 43:eee08de75336
1 (message "my-news") 1 (message "my-news")
2 ; (debug-on-entry 'gnus-start-news-server) 2 ; (debug-on-entry 'gnus-start-news-server)
3 (setq 3 (setq
4 gnus-select-method '(nntp "news.usenet.farm") 4 ;gnus-select-method '(nntp "news.usenet.farm")
5 gnus-post-method '(nntp "usenet.inf.ed.ac.uk") 5 ;gnus-post-method '(nntp "usenet.inf.ed.ac.uk")
6 gnus-nntp-server nil ; override local default 6 gnus-nntp-server nil ; override local default
7 ) 7 )
8 8
9 (setq gnus-use-scoring nil ; not used yet 9 (setq gnus-use-scoring nil ; not used yet
10 gnus-summary-gather-subject-limit nil 10 gnus-summary-gather-subject-limit nil
438 "Show the text/html parts of an multipart/alternative message using lynx" 438 "Show the text/html parts of an multipart/alternative message using lynx"
439 (interactive) 439 (interactive)
440 (gnus-summary-select-article) 440 (gnus-summary-select-article)
441 (with-current-buffer gnus-original-article-buffer 441 (with-current-buffer gnus-original-article-buffer
442 (shell-command-on-region (point-min) (point-max) 442 (shell-command-on-region (point-min) (point-max)
443 (expand-file-name "~/bin/showMPA.sh")) 443 ;(expand-file-name
444 ) 444 "showMPA.sh"
445 ;)
446 ))
445 ) 447 )
446 448
447 449
448 ;; run the first time we make a group window 450 ;; run the first time we make a group window
449 (defun gnus-group-mode-fun1 () 451 (defun gnus-group-mode-fun1 ()