Function: gnus-article-mode

gnus-article-mode is an autoloaded, interactive and byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-mode)

Documentation

Major mode for displaying an article.

All normal editing commands are switched off.

The following commands are available in addition to all summary mode commands:
M-x gnus-article-next-page (gnus-article-next-page) Scroll the article one page forwards
M-x gnus-article-prev-page (gnus-article-prev-page) Scroll the article one page backwards
C-c ^ (gnus-article-refer-article) Go to the article referred to by an article id near point
s (gnus-article-show-summary) Display the summary buffer
C-c RET (gnus-article-mail) Send a reply to the address near point
? (gnus-article-describe-briefly) Describe the current mode briefly
C-c TAB (gnus-info-find-node) Go to the Gnus info node

In addition to any hooks its parent mode gnus-mode might have run, this mode runs the hook gnus-article-mode-hook, as the final or penultimate step during initialization.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(define-derived-mode gnus-article-mode gnus-mode "Article"
  "Major mode for displaying an article.
All normal editing commands are switched off.

The following commands are available in addition to all summary mode
commands:
\\<gnus-article-mode-map>
\\[gnus-article-next-page]\t Scroll the article one page forwards
\\[gnus-article-prev-page]\t Scroll the article one page backwards
\\[gnus-article-refer-article]\t Go to the article referred to by an article id near point
\\[gnus-article-show-summary]\t Display the summary buffer
\\[gnus-article-mail]\t Send a reply to the address near point
\\[gnus-article-describe-briefly]\t Describe the current mode briefly
\\[gnus-info-find-node]\t Go to the Gnus info node"
  (gnus-simplify-mode-line)
  (make-local-variable 'minor-mode-alist)
  (when (gnus-visual-p 'article-menu 'menu)
    (gnus-article-make-menu-bar)
    (when gnus-summary-tool-bar-map
      (setq-local tool-bar-map gnus-summary-tool-bar-map)))
  (gnus-update-format-specifications nil 'article-mode)
  (setq-local page-delimiter gnus-page-delimiter)
  (setq-local gnus-page-broken nil)
  (make-local-variable 'gnus-article-current-summary)
  (make-local-variable 'gnus-article-mime-handles)
  (make-local-variable 'gnus-article-decoded-p)
  (make-local-variable 'gnus-article-mime-handle-alist)
  (make-local-variable 'gnus-article-wash-types)
  (make-local-variable 'gnus-article-image-alist)
  (make-local-variable 'gnus-article-charset)
  (make-local-variable 'gnus-article-ignored-charsets)
  (setq-local bookmark-make-record-function #'gnus-summary-bookmark-make-record)
  ;; Prevent Emacs from displaying non-break space with
  ;; `nobreak-space' face.
  (setq-local nobreak-char-display nil)
  ;; Enable `gnus-article-remove-images' to delete images shr.el renders.
  (setq-local shr-put-image-function #'gnus-shr-put-image)
  (unless gnus-article-show-cursor
    (setq cursor-in-non-selected-windows nil))
  (gnus-set-default-directory)
  (buffer-disable-undo)
  (setq show-trailing-whitespace nil)
  ;; Arrange a callback from `mm-inline-message' if we're
  ;; displaying a message/rfc822 part.
  (setq-local mm-inline-message-prepare-function
              #'gnus-mime--inline-message-function)
  (mm-enable-multibyte))