* Lars Magne Ingebrigtsen <larsi@gnus.org> wrote:

> Raymond Scholz <ray-2002@zonix.de> writes:
>
>> If you're using `W k' to deuglify messages, you may have encountered
>> the problem that messages with MIME parts (or format=flowed)
>> completely disappear from the Article Buffer.  This is due to the
>> brain-dead implementation of `gnus-outlook-rearrange-article'
>
> Could you construct a message that displays this behavior?

I've attached a real world example.

I was tryig to fix this a few weeks ago but did not suceed in any
way :(  

The call to `gnus-article-prepare-display'  in
`gnus-article-outlook-deuglify-article' is the cause of the
disappearance but commenting it out means, no highlighting will be
done after repairing the article.

Another drawback of deuglify.el is that
`gnus-outlook-rearrange-article' tempers the kill ring.  I've tried to
fix this (see the commented out function below).  Again - no luck.

--- lisp/deuglify.el	2002/12/28 23:54:45	6.4
+++ lisp/deuglify.el	2002/12/29 00:17:54
@@ -325,6 +325,30 @@
 	  (yank)
 	  (insert "\n"))))))
 
+;; Trying not to temper the kill ring - does not work...
+;;
+;; (defun gnus-outlook-rearrange-article (from-where)
+;;   "Put the text from `from-where' to the end of buffer at the top of
+;; the article buffer."
+;;   (save-excursion
+;;     (let ((inhibit-read-only t)
+;; 	  (cite-marks gnus-outlook-deuglify-cite-marks))
+;;       (gnus-with-article-buffer
+;; 	(setq tmp-point (point))
+;; 	(beginning-of-buffer)
+;; 	(setq body-point-min (point))
+;; 	(goto-char from-where)
+;; 	(beginning-of-line)
+;; 	(setq citation-min (point))
+;; 	(goto-char tmp-point)
+;; 	(gnus-message 3 "%s-%s <-> %s-%s"
+;; 		      citation-min (point-max) body-point-min (- citation-min 1))
+;; 	(unless (search-forward-regexp
+;; 		 (concat "^[ \t]*[^" cite-marks "\n]") nil t)
+;; 	  (transpose-regions citation-min (point-max)
+;; 			     body-point-min (- citation-min 1)))))))
+
+
 ;; John Doe <john.doe@some.domain> wrote in message
 ;; news:a87usw8$dklsssa$2@some.news.server...
 
@@ -423,9 +447,9 @@
 (defun gnus-article-outlook-deuglify-article ()
   "Deuglify broken Outlook (Express) articles and redisplay."
   (interactive)
-  (gnus-outlook-deuglify-article)
-  (with-current-buffer (or gnus-article-buffer (current-buffer))
-    (gnus-article-prepare-display)))
+  (gnus-outlook-deuglify-article))
+;;   (with-current-buffer (or gnus-article-buffer (current-buffer))
+;;     (gnus-article-prepare-display)))
 
 (provide 'deuglify)

Cheers, Ray
-- 
Q: What have american beer and sex in a canoe in common?
A: Both are fucking close to water.