Re: mm-uu-extract was: How to create a higher order function?

[Emanuel Berg]

Leo Butler wrote:

>> ;;; -*- lexical-binding: nil; -*-
>> (defun negate (fun)
>>   "Try to return a function returning the logical opposite of FUN."
>>   (lambda (&rest args)
>>     (not (apply fun args))))
>
> Thanks. Funny, Gnus used to show those markers, but it no
> longer does...which seems like a regression to me.

Looks immature (leet backfire) and don't serve any real or
clear purpose to me.

> Anyhow, what is the function/key sequence that inserts those
> markers into a Message buffer?

Try this:

(defun gnus-article-wash-more ()
  (interactive)
   (article-translate-strings
    '(("Skickades från E-post för Windows 10"       "")
      ("Sendt fra min iPad"                         "")
      ("Skickat från Yahoo Mail för iPhone"         "")
      ("--8<---------------cut"                     "")
      ("here---------------start------------->8---" "")
      ("here---------------end--------------->8---" "") ))
   (gnus-article-strip-multiple-blank-lines) )

;; (setq gnus-article-prepare-hook nil)
(defun gnus-article-prepare-hook-f ()
  (gnus-with-article-buffer
    (gnus-article-wash-more) ))
(add-hook 'gnus-article-prepare-hook #'gnus-article-prepare-hook-f)

-- 
underground experts united
https://dataswamp.org/~incal