Importing Pterodactyl Gnus v0.96.

[elisp/gnus.git-] / lisp / gnus-ems.el

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 4aa6036..8cfa6e2 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -49,26 +49,6 @@
 
 ;;; Mule functions.
 
-(defun gnus-mule-cite-add-face (number prefix face)
-  ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line.
-  (when face
-    (let ((inhibit-point-motion-hooks t)
-         from to)
-      (goto-line number)
-      (unless (eobp)            ; Sometimes things become confused (broken).
-        (if (boundp 'MULE)
-            (forward-char (chars-in-string prefix))
-          (forward-char (length prefix)))
-        (skip-chars-forward " \t")
-        (setq from (point))
-        (end-of-line 1)
-        (skip-chars-backward " \t")
-        (setq to (point))
-        (when (< from to)
-          (push (setq overlay (gnus-make-overlay from to))
-                gnus-cite-overlay-list)
-          (gnus-overlay-put (gnus-make-overlay from to) 'face face))))))
-
 (defun gnus-mule-max-width-function (el max-width)
   (` (let* ((val (eval (, el)))
            (valstr (if (numberp val)
@@ -147,7 +127,6 @@
 
     (defvar gnus-summary-display-table nil
       "Display table used in summary mode buffers.")
-    (fset 'gnus-cite-add-face 'gnus-mule-cite-add-face)
     (fset 'gnus-max-width-function 'gnus-mule-max-width-function)
     (fset 'gnus-summary-set-display-table (lambda ()))
 
@@ -208,7 +187,6 @@
            (ignore-errors
              (setq pixmap (read (current-buffer))))))
        (when pixmap
-         (erase-buffer)
          (unless (facep 'gnus-splash)
            (make-face 'gnus-splash))
          (setq height (/ (car pixmap) (frame-char-height))
@@ -218,7 +196,7 @@
          (insert-char ?\n (* (/ (window-height) 2 height) height))
          (setq i height)
          (while (> i 0)
-           (insert-char ?  (* (+ (/ (window-width) 2 width) 1) width))
+           (insert-char ?  (* (/ (window-width) 2 width) width))
            (setq beg (point))
            (insert-char ?  width)
            (set-text-properties beg (point) '(face gnus-splash))