2185 |
(make-local-hook 'pre-command-hook) |
(make-local-hook 'pre-command-hook) |
2186 |
(add-hook 'pre-command-hook 'gnus-set-global-variables nil t) |
(add-hook 'pre-command-hook 'gnus-set-global-variables nil t) |
2187 |
(gnus-run-hooks 'gnus-summary-mode-hook) |
(gnus-run-hooks 'gnus-summary-mode-hook) |
2188 |
(mm-enable-multibyte-mule4) |
(mm-enable-multibyte) |
2189 |
(gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy) |
(gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy) |
2190 |
(gnus-update-summary-mark-positions)) |
(gnus-update-summary-mark-positions)) |
2191 |
|
|
5942 |
"Display ARTICLE in article buffer." |
"Display ARTICLE in article buffer." |
5943 |
(when (gnus-buffer-live-p gnus-article-buffer) |
(when (gnus-buffer-live-p gnus-article-buffer) |
5944 |
(with-current-buffer gnus-article-buffer |
(with-current-buffer gnus-article-buffer |
5945 |
(mm-enable-multibyte-mule4))) |
(mm-enable-multibyte))) |
5946 |
(gnus-set-global-variables) |
(gnus-set-global-variables) |
5947 |
(if (null article) |
(if (null article) |
5948 |
nil |
nil |
5996 |
(when (gnus-buffer-live-p gnus-article-buffer) |
(when (gnus-buffer-live-p gnus-article-buffer) |
5997 |
(with-current-buffer gnus-article-buffer |
(with-current-buffer gnus-article-buffer |
5998 |
(if (not gnus-article-decoded-p) ;; a local variable |
(if (not gnus-article-decoded-p) ;; a local variable |
5999 |
(mm-disable-multibyte-mule4)))) |
(mm-disable-multibyte)))) |
6000 |
(when (or all-headers gnus-show-all-headers) |
(when (or all-headers gnus-show-all-headers) |
6001 |
(gnus-article-show-all-headers)) |
(gnus-article-show-all-headers)) |
6002 |
(gnus-article-set-window-start |
(gnus-article-set-window-start |
7952 |
(gnus-summary-show-article t) |
(gnus-summary-show-article t) |
7953 |
(when (and (not raw) (gnus-buffer-live-p gnus-article-buffer)) |
(when (and (not raw) (gnus-buffer-live-p gnus-article-buffer)) |
7954 |
(with-current-buffer gnus-article-buffer |
(with-current-buffer gnus-article-buffer |
7955 |
(mm-enable-multibyte-mule4))) |
(mm-enable-multibyte))) |
7956 |
(if (equal gnus-newsgroup-name "nndraft:drafts") |
(if (equal gnus-newsgroup-name "nndraft:drafts") |
7957 |
(setq raw t)) |
(setq raw t)) |
7958 |
(gnus-article-edit-article |
(gnus-article-edit-article |