Remove Gnus compat functions defined in gnus.el

* lisp/gnus/gnus.el (gnus-extent-detached-p): Remove.
(gnus-extent-start-open, gnus-character-to-event)
(gnus-assq-delete-all, gnus-add-text-properties)
(gnus-put-text-property, gnus-key-press-event-p):

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index b35847bae6b664dad1b9203ba2352dc8f4b223a2..6c1915ba909f7319c6cb06ea59c2362bc2a00738 100644 (file)
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -2679,7 +2679,7 @@ The following commands are available:
   (let* ((gnus-tmp-name (format "%s" (car category)))
         (gnus-tmp-groups (length (gnus-agent-cat-groups category))))
     (beginning-of-line)
-    (gnus-add-text-properties
+    (add-text-properties
      (point)
      (prog1 (1+ (point))
        ;; Insert the text.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 4858c2a663ee9e9a1dedf2908fabbc53bf62b091..5925f0138489b22e678662de628909cb46daf1f9 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2060,7 +2060,7 @@ always hide."
                     (- gnus-article-normalized-header-length column)
                     ? )))
           ((> column gnus-article-normalized-header-length)
-           (gnus-put-text-property
+           (put-text-property
             (progn
               (forward-char gnus-article-normalized-header-length)
               (point))
@@ -2296,13 +2296,13 @@ long lines if and only if arg is positive."
       (goto-char (point-max))
       (let ((start (point)))
        (insert "X-Boundary: ")
-       (gnus-add-text-properties start (point) gnus-hidden-properties)
+       (add-text-properties start (point) gnus-hidden-properties)
        (insert (let (str (max (window-width)))
                  (while (>= max (length str))
                    (setq str (concat str gnus-body-boundary-delimiter)))
                  (substring str 0 max))
                "\n")
-       (gnus-put-text-property start (point) 'gnus-decoration 'header)))))
+       (put-text-property start (point) 'gnus-decoration 'header)))))
 
 (defun article-fill-long-lines ()
   "Fill lines that are wider than the window width."
@@ -6112,8 +6112,7 @@ If nil, don't show those extra buttons."
 
 (defun gnus-article-insert-newline ()
   "Insert a newline, but mark it as undeletable."
-  (gnus-put-text-property
-   (point) (progn (insert "\n") (point)) 'gnus-undeletable t))
+  (put-text-property (point) (progn (insert "\n") (point)) 'gnus-undeletable t))
 
 (defun gnus-mime-display-alternative (handles &optional preferred ibegend id)
   (let* ((preferred (or preferred (mm-preferred-alternative handles)))
@@ -6139,7 +6138,7 @@ If nil, don't show those extra buttons."
                  (not preferred)
                  (not (gnus-unbuttonized-mime-type-p
                        "multipart/alternative")))
-         (gnus-add-text-properties
+         (add-text-properties
           (setq from (point))
           (progn
             (insert (format "%d.  " id))
@@ -6161,7 +6160,7 @@ If nil, don't show those extra buttons."
                                 :action 'gnus-widget-press-button)
          ;; Do the handles
          (while (setq handle (pop handles))
-           (gnus-add-text-properties
+           (add-text-properties
             (setq from (point))
             (progn
               (insert (format "(%c) %-18s"
@@ -6529,14 +6528,14 @@ If given a numerical ARG, move forward ARG pages."
   (interactive)
   (when (gnus-article-next-page)
     (goto-char (point-min))
-    (gnus-article-read-summary-keys nil (gnus-character-to-event ?n))))
+    (gnus-article-read-summary-keys nil ?n)))
 
 
 (defun gnus-article-goto-prev-page ()
   "Show the previous page of the article."
   (interactive)
   (if (save-restriction (widen) (bobp)) ;; Real beginning-of-buffer?
-      (gnus-article-read-summary-keys nil (gnus-character-to-event ?p))
+      (gnus-article-read-summary-keys nil ?p)
     (gnus-article-prev-page nil)))
 
 ;; This is cleaner but currently breaks `gnus-pick-mode':
@@ -6805,7 +6804,7 @@ not have a face in `gnus-article-boring-faces'."
 
 (defun gnus-article-read-summary-send-keys ()
   (interactive)
-  (let ((unread-command-events (list (gnus-character-to-event ?S))))
+  (let ((unread-command-events (list ?S)))
     (gnus-article-read-summary-keys)))
 
 (defun gnus-article-describe-key (key)
@@ -7959,14 +7958,14 @@ do the highlighting.  See the documentation for those functions."
          (when (and header-face
                     (not (memq (point) hpoints)))
            (push (point) hpoints)
-           (gnus-put-text-property from (point) 'face header-face))
+           (put-text-property from (point) 'face header-face))
          (when (and field-face
                     (not (memq (setq from (point)) fpoints)))
            (push from fpoints)
            (if (re-search-forward "^[^ \t]" nil t)
                (forward-char -2)
              (goto-char (point-max)))
-           (gnus-put-text-property from (point) 'face field-face)))))))
+           (put-text-property from (point) 'face field-face)))))))
 
 (defun gnus-article-highlight-signature ()
   "Highlight the signature in an article.
@@ -8021,7 +8020,7 @@ specified by `gnus-button-alist'."
                           (gnus-article-extend-url-button from start end))
                (gnus-article-add-button start end
                                         'gnus-button-push (list from entry))
-               (gnus-put-text-property
+               (put-text-property
                 start end
                 'gnus-string (buffer-substring-no-properties
                               start end))))))))))
@@ -8123,7 +8122,7 @@ url is put as the `gnus-button-url' overlay property on the button."
   (when gnus-article-button-face
     (overlay-put (make-overlay from to nil t)
                 'face gnus-article-button-face))
-  (gnus-add-text-properties
+  (add-text-properties
    from to
    (nconc (and gnus-article-mouse-face
               (list 'mouse-face gnus-article-mouse-face))

diff --git a/lisp/gnus/gnus-bcklg.el b/lisp/gnus/gnus-bcklg.el
index b7a63659d82ef8ad3900db0ee43b2ba5656da8fc..d5c7e0ee081f8bc3bb51b60a5725befcae8f92a9 100644 (file)
--- a/lisp/gnus/gnus-bcklg.el
+++ b/lisp/gnus/gnus-bcklg.el
@@ -83,7 +83,7 @@
            (insert-buffer-substring buffer)
            ;; Tag the beginning of the article with the ident.
            (if (> (point-max) b)
-             (gnus-put-text-property b (1+ b) 'gnus-backlog ident)
+             (put-text-property b (1+ b) 'gnus-backlog ident)
              (gnus-error 3 "Article %d is blank" number))))))))
 
 (defun gnus-backlog-remove-oldest-article ()

diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el
index 57f463f14c2c0fb89dba206848413f3b2319bd07..08816637214e84129f574cfef87534ab25169ef4 100644 (file)
--- a/lisp/gnus/gnus-cite.el
+++ b/lisp/gnus/gnus-cite.el
@@ -1118,7 +1118,7 @@ See also the documentation for `gnus-article-highlight-citation'."
              ((assq number gnus-cite-attribution-alist))
              (t
               (gnus-add-wash-type 'cite)
-              (gnus-add-text-properties
+              (add-text-properties
                (point) (progn (forward-line 1) (point))
                (nconc (list 'article-type 'cite)
                       gnus-hidden-properties))))

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index a7c3ebb80e35d4c9515ab2b09224e145987c10bc..aaf63983f6b57d797a6d54fe26a402679383af83 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1393,7 +1393,7 @@ if it is a string, only list groups matching REGEXP."
                 (or (not regexp)
                     (and (stringp regexp) (string-match regexp group))
                     (and (functionp regexp) (funcall regexp group))))
-           (gnus-add-text-properties
+           (add-text-properties
             (point) (prog1 (1+ (point))
                       (insert " " mark "     *: "
                               (gnus-group-decoded-name group)
@@ -1569,7 +1569,7 @@ if it is a string, only list groups matching REGEXP."
          gnus-tmp-header)      ; passed as parameter to user-funcs.
     (beginning-of-line)
     (setq beg (point))
-    (gnus-add-text-properties
+    (add-text-properties
      (point)
      (prog1 (1+ (point))
        ;; Insert the text.
@@ -1597,11 +1597,11 @@ if it is a string, only list groups matching REGEXP."
         (progn
           (unless (bound-and-true-p cursor-sensor-mode)
             (cursor-sensor-mode 1))
-          (gnus-put-text-property beg end 'cursor-sensor-functions
+          (put-text-property beg end 'cursor-sensor-functions
                                   '(gnus-tool-bar-update)))
-      (gnus-put-text-property beg end 'point-entered
+      (put-text-property beg end 'point-entered
                               #'gnus-tool-bar-update)
-      (gnus-put-text-property beg end 'point-left
+      (put-text-property beg end 'point-left
                               #'gnus-tool-bar-update))))
 
 (defun gnus-group-update-eval-form (group list)
@@ -1643,12 +1643,12 @@ and ends at END."
   (let ((face (cdar (gnus-group-update-eval-form
                       group
                       gnus-group-highlight))))
-    (unless (eq face (gnus-get-text-property-excluding-characters-with-faces beg 'face))
+    (unless (eq face (gnus-get-text-property-excluding-characters-with-faces
+                     beg 'face))
       (let ((inhibit-read-only t))
         (gnus-put-text-property-excluding-characters-with-faces
          beg end 'face
-         (if (boundp face) (symbol-value face) face)))
-      (gnus-extent-start-open beg))))
+         (if (boundp face) (symbol-value face) face))))))
 
 (defun gnus-group-get-icon (group)
   "Return an icon for GROUP according to `gnus-group-icon-list'."
@@ -3995,7 +3995,7 @@ entail asking the server for the groups."
     (erase-buffer)
     (while groups
       (setq group (pop groups))
-      (gnus-add-text-properties
+      (add-text-properties
        (point) (prog1 (1+ (point))
                 (insert "       *: "
                         (gnus-group-decoded-name group)
@@ -4128,7 +4128,7 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
                          (symbol-name group) charset)
                         (gnus-group-name-decode
                          (symbol-value group) charset))))
-       (gnus-add-text-properties
+       (add-text-properties
        b (1+ b) (list 'gnus-group group
                       'gnus-unread t 'gnus-marked nil
                       'gnus-level (1+ gnus-level-subscribed))))

diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 1b289c2a7c18f5fb81632e377f1c4a935b42b302..afbb845a0d81db2f36c2bae909d8581fb5fa3683 100644 (file)
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -180,7 +180,7 @@ fit these criteria."
              alt-text (when (string-match "\\(alt\\|title\\)=\"\\([^\"]+\\)"
                                           parameters)
                         (xml-substitute-special (match-string 2 parameters))))
-       (gnus-add-text-properties
+       (add-text-properties
         start end
         (list 'image-url url
               'image-displayer `(lambda (url start end)
@@ -293,7 +293,7 @@ Use ALT-TEXT for the image string."
          (let ((overlay (make-overlay start end)))
            (overlay-put overlay 'evaporate t)
            (overlay-put overlay 'gnus-button-url url)
-           (gnus-put-text-property start end 'gnus-string url)
+           (put-text-property start end 'gnus-string url)
            (when gnus-article-mouse-face
              (overlay-put overlay 'mouse-face gnus-article-mouse-face)))))
        ;; The upper-case IMG_ALT is apparently just an artifact that
@@ -455,10 +455,9 @@ Return a string with image data."
                     :help-echo alt-text
                     :keymap gnus-html-displayed-image-map
                     url)
-                    (gnus-put-text-property start (point)
-                                           'gnus-alt-text alt-text)
+                    (put-text-property start (point) 'gnus-alt-text alt-text)
                     (when url
-                     (gnus-add-text-properties
+                     (add-text-properties
                       start (point)
                       `(image-url
                         ,url

diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index c684007d7f3d98868d07ccbcd2a93a48983b4db3..f635d9967673dc5296c8b9f9af78bd84869ef346 100644 (file)
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -779,7 +779,7 @@ These will be used to retrieve the RSVP information from ical events."
   ;; FIXME: the gnus-mime-button-map keymap does not make sense for this kind
   ;; of button.
   (let ((start (point)))
-    (gnus-add-text-properties
+    (add-text-properties
      start
      (progn
        (insert "[ " text " ]")

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index e2b8dcc51e4bee49d367cab8a584c8fdd9e4f1a9..5859fba568d6ad030bd74a542033cbfd8b3f71c6 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1491,7 +1491,7 @@ See `gnus-summary-mail-forward' for ARG."
        (message-goto-subject)
        (re-search-forward " *$")
        (replace-match " (crosspost notification)" t t)
-       (gnus-deactivate-mark)
+       (deactivate-mark)
        (when (gnus-y-or-n-p "Send this complaint? ")
          (message-send-and-exit))))))
 

diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el
index b7af969bc20eadc702672b91c640f8f96dcfe08c..fc85bd69baf0faf40f5799824ea3cdcef7ce79d0 100644 (file)
--- a/lisp/gnus/gnus-salt.el
+++ b/lisp/gnus/gnus-salt.el
@@ -218,7 +218,7 @@ This must be bound to a button-down mouse event."
         (start-point (posn-point start-posn))
          (start-line (1+ (count-lines (point-min) start-point)))
         (start-window (posn-window start-posn))
-        (bounds (gnus-window-edges start-window))
+        (bounds (window-edges start-window))
         (top (nth 1 bounds))
         (bottom (if (window-minibuffer-p start-window)
                     (nth 3 bounds)
@@ -618,7 +618,7 @@ Two predefined functions are available:
                (t (cdar gnus-tree-brackets))))
         (buffer-read-only nil)
         beg end)
-    (gnus-add-text-properties
+    (add-text-properties
      (setq beg (point))
      (setq end (progn (eval gnus-tree-line-format-spec) (point)))
      (list 'gnus-number gnus-tmp-number))
@@ -834,8 +834,7 @@ it in the environment specified by BINDINGS."
          region)
       (set-buffer gnus-tree-buffer)
       (when (setq region (gnus-tree-article-region article))
-       (when (or (not gnus-selected-tree-overlay)
-                 (gnus-extent-detached-p gnus-selected-tree-overlay))
+       (when (not gnus-selected-tree-overlay)
          ;; Create a new overlay.
          (overlay-put
           (setq gnus-selected-tree-overlay
@@ -864,7 +863,7 @@ it in the environment specified by BINDINGS."
     (with-current-buffer (gnus-get-tree-buffer)
       (let (region)
        (when (setq region (gnus-tree-article-region article))
-         (gnus-put-text-property (car region) (cdr region) 'face face)
+         (put-text-property (car region) (cdr region) 'face face)
          (set-window-point
           (gnus-get-buffer-window (current-buffer) t) (cdr region)))))))
 

diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index 5d6ad7f14ebf1ebfd4af547227cae4f2cde448b2..a3525d8f28f0ffdfe201b4dfd8498c73cc0b796f 100644 (file)
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -210,7 +210,7 @@ Return a list of updated types."
   :type 'face)
 
 (defun gnus-mouse-face-function (form type)
-  `(gnus-put-text-property
+  `(put-text-property
     (point) (progn ,@form (point))
     'mouse-face
     ,(if (equal type 0)
@@ -243,19 +243,19 @@ Return a list of updated types."
   :type 'face)
 
 (defun gnus-face-face-function (form type)
-  `(gnus-add-text-properties
+  `(add-text-properties
     (point) (progn ,@form (point))
     (cons 'face
          (cons
           ;; Delay consing the value of the `face' property until
-          ;; `gnus-add-text-properties' runs, since it will be modified
-          ;; by `gnus-put-text-property-excluding-characters-with-faces'.
+          ;; `add-text-properties' runs, since it will be modified
+          ;; by `put-text-property-excluding-characters-with-faces'.
           (list ',(symbol-value (intern (format "gnus-face-%d" type))) 'default)
           ;; Redundant now, but still convenient.
           '(gnus-face t)))))
 
 (defun gnus-balloon-face-function (form type)
-  `(gnus-put-text-property
+  `(put-text-property
     (point) (progn ,@form (point)) 'help-echo
     ,(intern (format "gnus-balloon-face-%d" type))))
 
@@ -424,7 +424,7 @@ characters when given a pad value."
            `(let (gnus-position)
               ,@(gnus-complex-form-to-spec form spec-alist)
               (if gnus-position
-                  (gnus-put-text-property gnus-position (1+ gnus-position)
+                  (put-text-property gnus-position (1+ gnus-position)
                                           'gnus-position t)))
          `(progn
             ,@(gnus-complex-form-to-spec form spec-alist)))))))
@@ -630,7 +630,7 @@ characters when given a pad value."
 If PROPS, insert the result."
   (let ((form (gnus-parse-format format alist props)))
     (if props
-       (gnus-add-text-properties (point) (progn (eval form) (point)) props)
+       (add-text-properties (point) (progn (eval form) (point)) props)
       (eval form))))
 
 (defun gnus-set-format (type &optional insertable)

diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 35785992373c1e0290611f127f8b92980e65938f..35a38826a2c1569129cc769921507c6f344cfa46 100644 (file)
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -308,7 +308,7 @@ The following commands are available:
                             " (cloud)"
                           "")))
     (beginning-of-line)
-    (gnus-add-text-properties
+    (add-text-properties
      (point)
      (prog1 (1+ (point))
        ;; Insert the text.
@@ -863,7 +863,7 @@ claim them."
              (prefix (let ((gnus-select-method orig-select-method))
                        (gnus-group-prefixed-name "" method))))
          (while (setq group (pop groups))
-           (gnus-add-text-properties
+           (add-text-properties
             (point)
             (prog1 (1+ (point))
               (insert

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index a20816054bcebadf886ff9645f1d3be6f37f7cdc..adb9b02c3c7a32d8570db35b2be8ed12f781993a 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -3625,7 +3625,7 @@ buffer that was in action when the last article was fetched."
 (defun gnus-summary-insert-dummy-line (gnus-tmp-subject gnus-tmp-number)
   "Insert a dummy root in the summary buffer."
   (beginning-of-line)
-  (gnus-add-text-properties
+  (add-text-properties
    (point) (progn (eval gnus-summary-dummy-line-format-spec) (point))
    (list 'gnus-number gnus-tmp-number 'gnus-intangible gnus-tmp-number)))
 
@@ -3731,7 +3731,7 @@ buffer that was in action when the last article was fetched."
        (setq gnus-tmp-lines "?")
       (setq gnus-tmp-lines (number-to-string gnus-tmp-lines)))
     (condition-case ()
-       (gnus-put-text-property
+       (put-text-property
         (point)
         (progn (eval gnus-summary-line-format-spec) (point))
         'gnus-number gnus-tmp-number)
@@ -5421,7 +5421,7 @@ or a straight list of headers."
            (if (= gnus-tmp-lines -1)
                (setq gnus-tmp-lines "?")
              (setq gnus-tmp-lines (number-to-string gnus-tmp-lines)))
-           (gnus-put-text-property
+           (put-text-property
             (point)
             (progn (eval gnus-summary-line-format-spec) (point))
             'gnus-number number)
@@ -7788,7 +7788,7 @@ If BACKWARD, the previous article is selected instead of the next."
                          "exiting"))
          (gnus-summary-next-group nil group backward)))
        (t
-       (when (gnus-key-press-event-p last-input-event)
+       (when (numberp last-input-event)
          ;; Somehow or other, we may now have selected a different
          ;; window.  Make point go back to the summary buffer.
          (when (eq current-summary (current-buffer))
@@ -12387,7 +12387,7 @@ If REVERSE, save parts that do not match TYPE."
                  ": " (or (cdr (assq 'execute (car pslist))) "") "\n")
          (setq e (point))
          (forward-line -1)             ; back to `b'
-         (gnus-add-text-properties
+         (add-text-properties
           b (1- e) (list 'gnus-number gnus-reffed-article-number
                          'mouse-face gnus-mouse-face))
          (gnus-data-enter

diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index b471c2ab09e0971f489a40174ed6501574d66f01..39236594eb73c3da0d96bd6c304d01410ac8deae 100644 (file)
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -572,7 +572,6 @@ articles in the topic and its subtopics."
                   (not (zerop unread)) ;Non-empty
                   tick                 ;Ticked articles
                   (/= point-max (point-max)))) ;Inactive groups
-      (gnus-extent-start-open (point))
       (gnus-topic-insert-topic-line
        (car type) visiblep
        (not (eq (nth 2 type) 'hidden))
@@ -641,7 +640,7 @@ articles in the topic and its subtopics."
     (beginning-of-line)
     ;; Insert the text.
     (if shownp
-       (gnus-add-text-properties
+       (add-text-properties
         (point)
         (prog1 (1+ (point))
           (eval gnus-topic-line-format-spec))

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 170404c0299b4543b11fec5eb296504c8e4ec056..d9ea50b5bb845d7ad7e93cf8fb11e568defd4307 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -782,9 +782,6 @@ If there's no subdirectory, delete DIRECTORY as well."
     (setq string (replace-match "" t t string)))
   string)
 
-(declare-function gnus-put-text-property "gnus"
-                  (start end property value &optional object))
-
 (defsubst gnus-put-text-property-excluding-newlines (beg end prop val)
   "The same as `put-text-property', but don't put this prop on any newlines in the region."
   (save-match-data
@@ -792,9 +789,9 @@ If there's no subdirectory, delete DIRECTORY as well."
       (save-restriction
        (goto-char beg)
        (while (re-search-forward gnus-emphasize-whitespace-regexp end 'move)
-         (gnus-put-text-property beg (match-beginning 0) prop val)
+         (put-text-property beg (match-beginning 0) prop val)
          (setq beg (point)))
-       (gnus-put-text-property beg (point) prop val)))))
+       (put-text-property beg (point) prop val)))))
 
 (defsubst gnus-put-overlay-excluding-newlines (beg end prop val)
   "The same as `put-text-property', but don't put this prop on any newlines in the region."
@@ -818,7 +815,7 @@ Otherwise, do nothing."
          (when (eq prop 'face)
            (setcar (cdr (get-text-property beg 'face)) (or val 'default)))
        (inline
-         (gnus-put-text-property beg stop prop val)))
+         (put-text-property beg stop prop val)))
       (setq beg stop))))
 
 (defun gnus-get-text-property-excluding-characters-with-faces (pos prop)
@@ -1265,20 +1262,17 @@ If HASH-TABLE-P is non-nil, regards SEQUENCE as a hash table."
 (put 'gnus-with-output-to-file 'lisp-indent-function 1)
 (put 'gnus-with-output-to-file 'edebug-form-spec '(form body))
 
-(declare-function gnus-add-text-properties "gnus"
-                  (start end properties &optional object))
-
 (defun gnus-add-text-properties-when
   (property value start end properties &optional object)
-  "Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE."
+  "Like `add-text-properties', only applied on where PROPERTY is VALUE."
   (let (point)
     (while (and start
                (< start end) ;; XEmacs will loop for every when start=end.
                (setq point (text-property-not-all start end property value)))
-      (gnus-add-text-properties start point properties object)
+      (add-text-properties start point properties object)
       (setq start (text-property-any point end property value)))
     (if start
-       (gnus-add-text-properties start end properties object))))
+       (add-text-properties start end properties object))))
 
 (defun gnus-remove-text-properties-when
   (property value start end properties &optional object)

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 04496b6b7707a34b4686adb10735946335e111e8..f83932513bbb1b835db86ce6dc2876983716b063 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -303,15 +303,9 @@ be set in `.emacs' instead."
   :group 'gnus-start
   :type 'boolean)
 
-(unless (featurep 'gnus-xmas)
-  (defalias 'gnus-extent-detached-p 'ignore)
-  (defalias 'gnus-extent-start-open 'ignore)
-  (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
-  (defalias 'gnus-character-to-event 'identity)
-  (defalias 'gnus-assq-delete-all 'assq-delete-all)
-  (defalias 'gnus-add-text-properties 'add-text-properties)
-  (defalias 'gnus-put-text-property 'put-text-property)
-  (defvar gnus-mode-line-image-cache t)
+(defvar gnus-mode-line-image-cache t)
+
+(eval-and-compile
   (if (fboundp 'find-image)
       (defun gnus-mode-line-buffer-identification (line)
        (let ((str (car-safe line))
@@ -336,12 +330,7 @@ be set in `.emacs' instead."
                      str)
                     (list str))
            line)))
-    (defalias 'gnus-mode-line-buffer-identification 'identity))
-  (defalias 'gnus-deactivate-mark 'deactivate-mark)
-  (defalias 'gnus-window-edges 'window-edges)
-  (defalias 'gnus-key-press-event-p 'numberp)
-  ;;(defalias 'gnus-decode-rfc1522 'ignore)
-  )
+    (defalias 'gnus-mode-line-buffer-identification 'identity)))
 
 ;; We define these group faces here to avoid the display
 ;; update forced when creating new faces.