* gnus-uu.el (gnus-uu-digest-mail-forward): Mark as forwarded.

[gnus] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index da967cf..28a5ab9 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1985,36 +1985,6 @@ always hide."
                    (looking-at "[ \t]*$"))
          (gnus-delete-line))))))
 
-(defun article-replace-with-quoted-text ()
-  "Replace the entire article with the quoted text in the article."
-  (interactive)
-  (unless gnus-cite-prefix-alist
-    (error "No quoted text in the article"))
-  (gnus-summary-show-article t)
-  (save-excursion
-    (set-buffer gnus-article-buffer)
-    (gnus-cite-parse-maybe t)
-    (let ((prefix (concat "^" (caar gnus-cite-prefix-alist)))
-         (buffer-read-only nil)
-         (body nil))
-      (dolist (line (sort (copy-sequence (cdar gnus-cite-prefix-alist)) '<))
-       (save-excursion
-         (set-buffer gnus-original-article-buffer)
-         (goto-char (point-min))
-         (forward-line (1- line))
-         (push (buffer-substring (point) (progn (forward-line 1) (point)))
-               body)))
-      (article-goto-body)
-      (forward-line -1)
-      (delete-region (point) (point-max))
-      (mapcar #'insert (mapcar #'string-as-unibyte (nreverse body)))
-      (goto-char (point-min))
-      (while (re-search-forward prefix nil t)
-       (replace-match "" t t))
-      (gnus-article-prepare-display))))
-    
-    
-
 (defun article-narrow-to-head ()
   "Narrow the buffer to the head of the message.
 Point is left at the beginning of the narrowed-to region."