Re: Washing html

[Slackrat]

Anton Kulchitsky a écrit profondement:

| 
| Sorry that it did not help though. It should not use w3 if you did not
| set this somehow. Did you try w3m-standalone?
| 
 
I have the following progs installed and everything works fine

emacs-22.1.tar.gz  
emacs-w3m-1.4.4.tar.gz  
libgc_6.4.orig.tar.gz
muse-latest.tar.gz  
randomsig.el  
w3m-0.5.2.tar.gz 

as you may note, not all of them are required for html, but I list
them for completeness

Here is .gnus with much snipped but you should be able to glean what
you need  from here

;;#####################################
;;#####################################
;;  CONFIG0URATION FILE FOR INCONNU  ##
;;#####################################
;;#####################################

;;#########################################
;;  Put a Spook string in every message  ##
;;#########################################
(add-hook 'mail-setup-hook 'spook)

;;#################################
;;  IMPLEMENT RANDOM SIGNATURES  ##
;;#################################

;; see /emacs for complete randomsig.el
;; ####################################

;; TO MAKE IT WORK, put the following lines into your ~/.gnus:

 (require 'randomsig)
 (define-key message-mode-map (kbd "C-c s") 'randomsig-replace-sig)
 (define-key message-mode-map (kbd "C-c S") 'randomsig-select-sig)
 (require 'gnus-sum) ; probably required for `gnus-summary-save-map'
 (define-key gnus-summary-save-map "-" 'gnus/randomsig-summary-read-sig)
 (setq randomsig-dir "/home/inconnu/.signature/random-signature")
 (setq randomsig-files '(
"001" "002" "003" "004" "005" "006" "007" "008" "009" "010" "011" "012" "013" 
"014" "015" "016" "017" "018" "019" "020"
"021" "022" "023" "024" "025" "026" "027" "028" "029" "030" "031" "032" "033" 
"034" "035" "036" "037" "038" "039" "040"
"041" "042" "043" "044" "045" "046" "047" "048" "049" "050" "051" "052" "053" 
"054" "055" "056" "057" "058" "059" "060" 
"061" "062" "063" "064" "065" "066" "067" "068" "069" "070" "071" "072" "073" 
"074" "075" "076" "077" "078" "079" "080"
"081" "082" "083" "084" "085" "086" "087" "088" "089" "090" "091" "092" "093" 
"094" "095" "096" "097" "098" "099" "100"
"101" "102" "103" "104" "105" "106" "107" "108" "109" "110" "111" "112" "113" 
"114" "115" "116" "117" "118" "119" "120"
"121" "122" "123" "124" "125" "126" "127" "128" "129" "130" "131" "132" "133" 
"134" "135" "136" "137" "138" "139" "140"
"141" "142" "143" "144" "145" "146" "147" "148" "149" "114" "151" "152" "153" 
"154" "155" "156" "157" "158" "159" "160"
)
 )
 ;; or (setq randomsig-files (randomsig-search-sigfiles))
 ;; or (setq randomsig-files 'randomsig-search-sigfiles)
 (setq message-signature 'randomsig-signature)

;; This will also define the shortcut `C-c s' in message-mode to
;; change the signature, `C-c S' in message-mode to interactively
;; select the signature to replace the current signature, and `O -' in
;; gnus-summary-mode to read the signature from the selected mail.

;; `randomsig-files' must be a list of existing files, an existing
;; file, or a function returning a list of existing files. If these
;; don't have absolute paths, they are located in `randomsig-dir'.

;; File format: Each file must contain at least one signature.
;; Signatures are separated with `randomsig-delimiter-pattern'. If
;; there is only one signature in the file, the delimiter can be
;; omitted, so real .signature-files can be used.

;; `randomsig-delimiter' is used when inserting new signatures with
;; `randomsig-message-read-sig' into the signature file. So
;; `randomsig-delimiter' should match `randomsig-delimiter-pattern'.

;; `randomsig-static-string' is put in front of every random signature
;; if non-`nil'.

;; The *-read-sig functions read the signature of a message, or use
;; the marked text, and write it to a signature-file, for which the
;; name is asked. If the file does not exist, it will be generated.
;; When called with any prefix, the signatures will be offered to edit
;; before saving.

;; if `randomsig-replace-sig' is called with any prefix, it will ask
;; for a file to get the signature from.

;; `randomsig-select-sig' will offer a list of signatures to select
;; from in an extra buffer. n will jump to the next signature, p to
;; the previous, RET will insert the selected signature, q will exit
;; the selection buffer without replacing the current signature, R
;; will reload the signature-files, and e will open a buffer for
;; editing the signature at the point. When called with any prefix, it
;; will ask for a file to get the signatures from
;; `randomsig-search-sigfiles' will search for regular files in
;; `randomsig-dir', which do not match `randomsig-search-unwanted'. A
;; subdirectory of `randomsig-dir' can be given as optional argument.

;; Completion will only work for files in `randomsig-files', though
;; others files can be used, too.

;;; basic configuration
;;; ###################

(setq user-full-name "XXX"
      user-mail-address "xxx@azurservers.com"
      message-from-style 'angles
      gnus-local-domain "azurservers.com")

(setq mail-sources 
        '((file :path "/var/spool/mail/xxx")
          (directory :path "~/Mail/")))

;; The default news server
(setq gnus-select-method '(nntp "news.free.fr"))

;; Don't request the entire active file from the server
(setq gnus-read-active-file nil)
(setq gnus-check-new-newsgroups nil)
(setq gnus-check-bogus-newsgroups nil)
(setq gnus-nov-is-evil nil)

;; File locations
(setq nnmail-spool-file '(  
(file :path "/var/spool/mail/xxx")  
(directory :path "/home/xxx/Mail")  
))  

;; Initialize the Gnus daemon, check new mail every 60 minutes.
(defun gnus-demon-scan-mail-or-news-and-update ()
  "Scan for new mail/news and update the *Group* buffer"
  (when (gnus-alive-p)  
    (save-window-excursion
      (save-excursion
 (set-buffer gnus-group-buffer)
 (gnus-group-get-new-news)))))

(defun gnus-demon-scan-and-update ()
  (gnus-demon-scan-mail-or-news-and-update))

;; Sort threads by the date of the root node.
(setq gnus-thread-sort-functions `(gnus-thread-sort-by-date))

;; Check new mail every two minutes.
(gnus-demon-add-handler 'gnus-demon-scan-and-update 2 nil)
(setq gnus-use-demon t)
(gnus-demon-init)
(gnus-compile)

;; Smtp
(setq message-send-mail-function 'smtpmail-send-it 
      send-mail-function 'smtpmail-send-it 
      smtpmail-default-smtp-server "darkstar"
      smtpmail-local-domain "azurservers.com"
      smtpmail-debug-info t
)

(setq smtpmail-auth-credentials 
    `(
        ("smtp.azurservers.com"  25 "xxx" "password")
      )
)

;; Make Gnus an offline reader.
(gnus-agentize) 

;;; Prompt for fetching more than 500 messages from a group.
(setq gnus-large-newsgroup 500)

;; Turn on MIME. You would need gnus v5.8.x for this to work in any
;; reasonable way. Depending on how ancient your gnus is, not heeding this
;; warning could have very strange effects ranging from blanking out of
;; non-MIME messages to sending all your archived porn to your boss...
(setq gnus-show-mime t)

;; I would like gnus to always use Netscape/mozilla 
(setq browse-url-browser-function 'browse-url-firefox)
;; (setq browse-url-browser-function 'browse-url-netscape)

;; Use w3m to render html emails // see .emacs file for load command
(setq mm-text-html-renderer 'w3m)
(setq mm-inline-text-html-with-images t)
(setq mm-inline-large-images t)

;; Show the text/plain part of a multipart
;; Now I'm doing that for GNU Emacs only.
 (setq mm-discouraged-alternatives
       '("text/html"
       "text/richtext"))

;; How I would like various lines to look
(setq gnus-group-line-format "%P %(%~(pad-right 30)G%) unread: %-4N\n"
      gnus-summary-line-format "%U%R%z [%~(cut-left 4)~(max-right 2)~(pad 
2)o-%~(cut-left 6)~(max-right 2)~(pad 2)o %~(cut-left 9)~(max-right 2)~(pad 
2)o:%~(cut-left 11)~(max-right 2)~(pad 2)o] %I %(%z%[%-16,16f%]%) %s\n"
      gnus-topic-line-format "%i[ %0{%(%n (new: %a)%)%} ]\n")

;; Headers that I would like to see
(setq gnus-visible-headers
      (quote ("^From:" "^Newsgroups:" "^Subject:" "^Date:"
              "^Followup-To:" "^Reply-To:" "^Organization:" "^Summary:"
              "^Keywords:" "^To:" "^[BGF]?Cc:" "^Posted-To:" 
              "^Mail-Copies-To:" "^Apparently-To:" "^Gnus-Warning:"
              "^Resent-From:" "^X-Sent:" "^X-Sender:" "^X-Mailer:" 
"^User-Agent:"
              "^X-Newsreader" "^Content-Type:" "^NNTP-Posting-Host:"
              "^X-Originating-IP:" "^X-Original-IP:"  "^X-Yahoo-Profile:")))

;; Groups that are permanently visible
;;  (setq gnus-permanently-visible-groups "")

;; Save a copy of outgoing message to outbox
;; (setq gnus-message-archive-group "outbox")

;; Auto Expirable groups (currently set to ALL)
;;(setq gnus-auto-expirable-newsgroups
;;          "mail.*")


;; Total Expirable groups (currently set to ALL)
(setq gnus-total-expirable-newsgroups ".*")
(setq gnus-inhibit-user-auto-expire nil)



;; Do expiring at once
;;(setq gnus-expiry-wait 'immediate)

;; Delayed Expiry - default is 7 days
;; This function modifies the Default
(setq nnmail-expiry-wait-function
      (lambda (group)
       (cond ((string= group "mail.spam")
               2)
             ((string= group "potentail-spam")
               2)
             ((string= group "tanya")
               'never)
             ((string= group "isabel")
               'never)
             ((string= group "gaukroger")
               'never)
             ((string= group "gunter-deckert")
               'never)
             ((string= group "hitler")
               'never)
             (t
               7))))

;; Don't ask before catching up
(setq gnus-interactive-catchup nil)

;; Don't ask before exiting
(setq gnus-interactive-exit nil)

;; Save the annoying dribble file somewhere where it won't bother
(setq gnus-dribble-directory "~/.backups")

;; "Bubble up" the rank of the groups that are read the most
;; To sort the groups: "G S r"
(add-hook 'gnus-summary-exit-hook 'gnus-summary-bubble-group)


;; ############################
;; ## MAIL SORTING/SPLITTING ##
;; ############################

;;  ZAP DUPLICATE ARTICLES
(setq gnus-suppress-duplicates t 
  nnmail-treat-duplicates 'delete)
;;
;; NOTE that subsequent split criteria should be 
;; placed at the TOP of this section otherwise
;; UNEXPECTED RESULTS may be experienced
;;
;; However, remain vigilant as emails do come
;; in that meet two or even more criteria
;;
(setq nnmail-split-methods
  '(  

;; MYSQL FORWARDED FROM AB460 TORFREE
;; ==================================
    ("mail.spam" "^From:.*mysql.com")
    ("mail.spam" "^To:.*mysql*")

;; LISTSERV
;; ========
    ("mail.listserver" "^To:.*listsrvboss*")
    ("mail.listserver" "^From:.*listsrvboss*")
    ("mail.listserver" "^To:.*lsoft*")
    ("mail.listserver" "^From:.*lsoft*")

;; CULL CRON JOB MESSAGES AND RELATED ITEMS
;; ========================================

;; UPTIME ETC
    ("mail.uptime"      "^Subject:.uptime")
;; ALENDRONATE
    ("mail.alendronate" "^Subject:.alendronate")
;; STAY ALIVE
    ("mail.stayalive" "^Subject:.stayalive")
;; SYSLOG
    ("mail.syslog" "^Subject:.syslog")
;; CLEAR JUNK
    ("mail.clearjunk" "^Subject:.clearjunk")
;; CHECK ROOT'S MAIL
    ("mail.check-root-mail" "^Subject:.ckrootmail")
;; YAHOOLOGIN + ANYTHING FROM YAHOO PROPER
    ("mail.yahoologin" "^Subject:.*yahoologin*")
    ("mail.yahoologin" "^From:   .*yahoo!mail*")
;; NERDSHACK fetchmail
;;    ("mail.nerdshackfetch" "^To:.*nerdshack*")
;; ROOT KIT HUNTER
    ("mail.rkhunter""^Subject:.*rkhunter*")
;; FETCHMAIL DAEMON
    ("mail.fetchmail" "^From:.*FETCHMAIL-*")
;; RETURNED-BOUNCED
    ("mail.returned" "^Subject:.*returned mail*")

;; IDENTIFIED SPAM, UCE OR OTHER UNWANTED ITEMS
;; ============================================

;; FORWARDED FROM AB460 TORFREE
;; ============================
;; NOTE this can be set back to "ab460" if many
;; legit emails come via tfn forwarding
    ("mail.spam" "^To:.*torfree*")

;; TLUG SPAMMER
    ("mail.spam" "^To:.*drew@ss.org")
    ("mail.spam" "^From:.*drew@ss.org")


;; OTHER MESSAGES
;; ==============


;; ISABEL CASTRO
    ("mail.isabel"             "^From:.*isabel21@xxx.net")
    ("mail.isabel"             "^To:.*isabel21@xxx.net")

[SNIP MUCH HERE]

;; SPAM/BULK IN SUBJECT OR OTHERWISE PREDETERMINED AS SPAM
    ("mail.spam" "^Subject:.*spittingblaze*")
    ("mail.spam" "^Subject:.*meetup*")
    ("mail.spam" "^Subject:.*spam*")
    ("mail.spam" "^Subject:.*bulk*")
    ("mail.spam" "^To:.*slackrat*")
    ("mail.spam" "^To:.*inconnu*")

;; SPAM NATIONS
    ("mail.spam" "^To:.*.cn")
    ("mail.spam" "^To:.*.tw")
    ("mail.spam" "^To:.*.kr")
    ("mail.spam" "^To:.*.cn")
    ("mail.spam" "^To:.*.jp")
    ("mail.spam" "^To:.*.ru")
    ("mail.spam" "^To:.*.hu")

;; DEFAULT
    ("mail.potential-spam" "")

   )
)


;; ##################
;; POSTING HEADERS ##
;; ##################
;;


(defun my-message-insert-citation-line () ; cf message-insert-citation-line
  "Insert preferred citation line."
  (if message-reply-headers
      (let* ((from (mail-header-from message-reply-headers))
             (head (or
                    (and
                     (string-match "[ \t]*<[^>]+>\\'" from)
                     (replace-match "" nil t from))
                    (and
                     (string-match "(\\([^)]+\\))[ \t]*\\'" from)
                     (match-string 1 from)))))
        (insert (or head from) " a écrit profondement:\n\n"))))
(setq message-citation-line-function 'my-message-insert-citation-line)

(setq message-yank-prefix "| ")
(setq message-yank-cited-prefix "| ")

;; Reply without quoting Signature
(setq message-cite-function 'message-cite-original-without-signature)

;; Set some default email and news headers
(setq message-default-mail-headers
"Fcc: ~/Mail/outbox")

(setq message-default-news-headers
"Fcc: ~/News/sent.news.archive")

(setq message-required-mail-headers
      (nconc message-required-mail-headers
             (list '(Face . (lambda ()
                              (gnus-face-from-file 
"~/.signature/facesmtp.jpg"))))))

(setq message-required-news-headers
      (nconc message-required-news-headers
             (list '(Face . (lambda ()
                              (gnus-face-from-file 
"~/.signature/facenntp.jpg"))))))

(setq gnus-posting-styles
      '((".*"
;; STANDARD
;;=========
         (name mail-user-name)
         ("X-Guarantee" "This email is certified to have been free
             of UCE and any other Malicious, Harmful or
             Annoying Content when originally sent by
             <user>@azurservers.com - Azurservers post
             SPF records and do not condone SPAM type
             emails")
         (signature-file "~/.signature/bill")
         ("X-Homepage" "http://azurservers.com";)
         ("X-Operating-System" "Kernel=Intel-Linux, Programmes=GNU, 
Integration=Slackware")
         ("X-Azurservers-AuthNo" "Registered as AZSV bghkd8332277")
         (organization "Not very much!"))

[SNIP MUCH HERE]

))


and this is .emacs

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(erc-action-face ((t (:foreground "Cyan"))))
 '(erc-direct-msg-face ((t (:foreground "beige"))))
 '(erc-input-face ((t (:foreground "grey60"))))
 '(erc-notice-face ((t (:foreground "Orange"))))
 '(erc-pal-face ((t (:foreground "yellow" :weight bold))))
 '(erc-timestamp-face ((t (:foreground "green"))))
 '(font-lock-comment-face ((((class color) (background dark)) (:foreground 
"AquaMarine"))))
 '(highline-face ((t (:background "DimGray"))))
 '(info-node ((((class color)) (:foreground "orange" :bold t :italic t)) (t 
(:bold t :italic t))))
 '(info-xref ((t (:foreground "cyan" :underline "cyan" :weight bold))))
 '(paren-face-match ((((class color)) (:background "green"))))
 '(paren-face-mismatch ((((class color)) (:foreground "white" :background 
"red"))))
 '(paren-match ((t (:background "green"))))
 '(paren-mismatch ((t (:background "red"))))
 '(secondary-selection ((((class color) (background dark)) (:background 
"blue"))))
 '(show-paren-match-face ((((class color)) (:background "green"))) t)
 '(show-paren-mismatch-face ((((class color)) (:background "red"))) t)
 '(widget-field-face ((((class grayscale color) (background dark)) (:background 
"dim gray" :foreground "white"))) t))

;; use Muse


(require 'muse-mode)     ; load authoring mode

(require 'muse-html)     ; load publishing styles I use
(require 'muse-latex)
(require 'muse-texinfo)
(require 'muse-docbook)

(require 'muse-project)  ; publish files in projects


;; I want to use W3M
(require 'w3m-load)

;; I don't want a splash screen loaded on startup
(setq inhibit-splash-screen t)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(canlock-password "e2c095658ce827488f8715b443541e9c60d67115")
 '(display-battery-mode t)
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t))



-- 
SlackRat - 4Q to Reply