← Back to branch summary

~ubuntu-branches/ubuntu/karmic/emacs-snapshot/karmic

« back to all changes in this revision

Viewing changes to lisp/gnus/gnus-art.el

  • Committer: Bazaar Package Importer
  • Author(s): Romain Francoise
  • Date: 2007-07-01 18:41:19 UTC
  • mfrom: (1.1.21 upstream)
  • Revision ID: james.westby@ubuntu.com-20070701184119-1n27qhw9b1ee633k
Tags: 1:20070701-1
New snapshot (from the EMACS_22_BASE branch).

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/gnus/gnus-art.el
651
651
If the match is a string, it is used as a regexp match on the
652
652
article.  If the match is a symbol, that symbol will be funcalled
653
653
from the buffer of the article to be saved with the newsgroup as the
654
 
parameter.  If it is a list, it will be evaled in the same buffer.
 
654
parameter.  If it is a list, it will be evalled in the same buffer.
655
655
 
656
656
If this form or function returns a string, this string will be used as
657
657
a possible file name; and if it returns a non-nil list, that list will
3925
3925
  (make-local-variable 'gnus-article-image-alist)
3926
3926
  (make-local-variable 'gnus-article-charset)
3927
3927
  (make-local-variable 'gnus-article-ignored-charsets)
3928
 
  ;; Prevent recent Emacsen from displaying non-break space as "\ ".
 
3928
  ;; Prevent Emacs 22 from displaying non-break space with `nobreak-space'
 
3929
  ;; face.
3929
3930
  (set (make-local-variable 'nobreak-char-display) nil)
3930
3931
  (setq cursor-in-non-selected-windows nil)
3931
3932
  (gnus-set-default-directory)
4673
4674
         (mm-enable-external t))
4674
4675
    (if (not (stringp method))
4675
4676
        (gnus-mime-view-part-as-type
4676
 
         nil (lambda (type) (stringp (mailcap-mime-info type))))
 
4677
         nil (lambda (types) (stringp (mailcap-mime-info (car types)))))
4677
4678
      (when handle
4678
4679
        (if (mm-handle-undisplayer handle)
4679
4680
            (mm-remove-part handle)
4694
4695
         (inhibit-read-only t))
4695
4696
    (if (not (mm-inlinable-p handle))
4696
4697
        (gnus-mime-view-part-as-type
4697
 
         nil (lambda (type) (mm-inlinable-p handle type)))
 
4698
         nil (lambda (types) (mm-inlinable-p handle (car types))))
4698
4699
      (when handle
4699
4700
        (if (mm-handle-undisplayer handle)
4700
4701
            (mm-remove-part handle)
5606
5607
  "Execute the last keystroke in the summary buffer."
5607
5608
  (interactive)
5608
5609
  (let (func)
5609
 
    (pop-to-buffer gnus-article-current-summary 'norecord)
 
5610
    (pop-to-buffer gnus-article-current-summary nil 'norecord)
5610
5611
    (setq func (lookup-key (current-local-map) (this-command-keys)))
5611
5612
    (call-interactively func)))
5612
5613
 
5645
5646
            (member keys nosave-in-article))
5646
5647
        (let (func)
5647
5648
          (save-window-excursion
5648
 
            (pop-to-buffer gnus-article-current-summary 'norecord)
 
5649
            (pop-to-buffer gnus-article-current-summary nil 'norecord)
5649
5650
            ;; We disable the pick minor mode commands.
5650
5651
            (let (gnus-pick-mode)
5651
5652
              (setq func (lookup-key (current-local-map) keys))))
5657
5658
            (call-interactively func)
5658
5659
            (setq new-sum-point (point)))
5659
5660
          (when (member keys nosave-but-article)
5660
 
            (pop-to-buffer gnus-article-buffer 'norecord)))
 
5661
            (pop-to-buffer gnus-article-buffer nil 'norecord)))
5661
5662
      ;; These commands should restore window configuration.
5662
5663
      (let ((obuf (current-buffer))
5663
5664
            (owin (current-window-configuration))
5664
5665
            (opoint (point))
5665
5666
            win func in-buffer selected new-sum-start new-sum-hscroll)
5666
5667
        (cond (not-restore-window
5667
 
               (pop-to-buffer gnus-article-current-summary 'norecord))
 
5668
               (pop-to-buffer gnus-article-current-summary nil 'norecord))
5668
5669
              ((setq win (get-buffer-window gnus-article-current-summary))
5669
5670
               (select-window win))
5670
5671
              (t