/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by zsh, Fri Nov 29 15:57:51 2002 UTC revision 1.46 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 230  asynchronously.         The compressed face wil Line 230  asynchronously.         The compressed face wil
230    
231  (defcustom gnus-article-banner-alist nil  (defcustom gnus-article-banner-alist nil
232    "Banner alist for stripping.    "Banner alist for stripping.
233  For example,  For example,
234       ((egroups . \"^[ \\t\\n]*-------------------+\\\\( eGroups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))"       ((egroups . \"^[ \\t\\n]*-------------------+\\\\( eGroups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))"
235    :version "21.1"    :version "21.1"
236    :type '(repeat (cons symbol regexp))    :type '(repeat (cons symbol regexp))
# Line 658  be added below it (otherwise)." Line 658  be added below it (otherwise)."
658  (defcustom gnus-article-mime-match-handle-function 'undisplayed-alternative  (defcustom gnus-article-mime-match-handle-function 'undisplayed-alternative
659    "Function called with a MIME handle as the argument.    "Function called with a MIME handle as the argument.
660  This is meant for people who want to view first matched part.  This is meant for people who want to view first matched part.
661  For `undisplayed-alternative' (default), the first undisplayed  For `undisplayed-alternative' (default), the first undisplayed
662  part or alternative part is used.  For `undisplayed', the first  part or alternative part is used.  For `undisplayed', the first
663  undisplayed part is used.  For a function, the first part which  undisplayed part is used.  For a function, the first part which
664  the function return `t' is used.  For `nil', the first part is  the function return `t' is used.  For `nil', the first part is
665  used."  used."
666    :version "21.1"    :version "21.1"
667    :group 'gnus-article-mime    :group 'gnus-article-mime
668    :type '(choice    :type '(choice
669            (item :tag "first" :value nil)            (item :tag "first" :value nil)
670            (item :tag "undisplayed" :value undisplayed)            (item :tag "undisplayed" :value undisplayed)
671            (item :tag "undisplayed or alternative"            (item :tag "undisplayed or alternative"
672                  :value undisplayed-alternative)                  :value undisplayed-alternative)
673            (function)))            (function)))
674    
# Line 737  See the manual for details." Line 737  See the manual for details."
737    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
738  (put 'gnus-treat-buttonize-head 'highlight t)  (put 'gnus-treat-buttonize-head 'highlight t)
739    
740  (defcustom gnus-treat-emphasize  (defcustom gnus-treat-emphasize
741    (and (or window-system    (and (or window-system
742             (featurep 'xemacs)             (featurep 'xemacs)
743             (>= (string-to-number emacs-version) 21))             (>= (string-to-number emacs-version) 21))
# Line 925  See the manual for details." Line 925  See the manual for details."
925    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
926  (put 'gnus-treat-overstrike 'highlight t)  (put 'gnus-treat-overstrike 'highlight t)
927    
928  (defcustom gnus-treat-display-xface  (defcustom gnus-treat-display-xface
929    (and (or (and (fboundp 'image-type-available-p)    (and (or (and (fboundp 'image-type-available-p)
930                  (image-type-available-p 'xbm)                  (image-type-available-p 'xbm)
931                  (string-match "^0x" (shell-command-to-string "uncompface")))                  (string-match "^0x" (shell-command-to-string "uncompface")))
# Line 939  See the manual for details." Line 939  See the manual for details."
939    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
940  (put 'gnus-treat-display-xface 'highlight t)  (put 'gnus-treat-display-xface 'highlight t)
941    
942  (defcustom gnus-treat-display-smileys  (defcustom gnus-treat-display-smileys
943    (if (or (and (featurep 'xemacs)    (if (or (and (featurep 'xemacs)
944                 (featurep 'xpm))                 (featurep 'xpm))
945            (and (fboundp 'image-type-available-p)            (and (fboundp 'image-type-available-p)
# Line 1512  MAP is an alist where the elements are o Line 1512  MAP is an alist where the elements are o
1512      (let ((inhibit-point-motion-hooks t)      (let ((inhibit-point-motion-hooks t)
1513            buffer-read-only            buffer-read-only
1514            (mail-parse-charset gnus-newsgroup-charset)            (mail-parse-charset gnus-newsgroup-charset)
1515            (mail-parse-ignored-charsets            (mail-parse-ignored-charsets
1516             (save-excursion (set-buffer gnus-summary-buffer)             (save-excursion (set-buffer gnus-summary-buffer)
1517                             gnus-newsgroup-ignored-charsets)))                             gnus-newsgroup-ignored-charsets)))
1518        (mail-decode-encoded-word-region (point-min) (point-max)))))        (mail-decode-encoded-word-region (point-min) (point-max)))))
# Line 1524  If PROMPT (the prefix), prompt for a cod Line 1524  If PROMPT (the prefix), prompt for a cod
1524    (let ((inhibit-point-motion-hooks t) (case-fold-search t)    (let ((inhibit-point-motion-hooks t) (case-fold-search t)
1525          buffer-read-only          buffer-read-only
1526          (mail-parse-charset gnus-newsgroup-charset)          (mail-parse-charset gnus-newsgroup-charset)
1527          (mail-parse-ignored-charsets          (mail-parse-ignored-charsets
1528           (save-excursion (condition-case nil           (save-excursion (condition-case nil
1529                               (set-buffer gnus-summary-buffer)                               (set-buffer gnus-summary-buffer)
1530                             (error))                             (error))
# Line 1545  If PROMPT (the prefix), prompt for a cod Line 1545  If PROMPT (the prefix), prompt for a cod
1545              format (and ctl (mail-content-type-get ctl 'format)))              format (and ctl (mail-content-type-get ctl 'format)))
1546        (when cte        (when cte
1547          (setq cte (mail-header-strip cte)))          (setq cte (mail-header-strip cte)))
1548        (if (and ctl (not (string-match "/" (car ctl))))        (if (and ctl (not (string-match "/" (car ctl))))
1549            (setq ctl nil))            (setq ctl nil))
1550        (goto-char (point-max)))        (goto-char (point-max)))
1551      (forward-line 1)      (forward-line 1)
# Line 1567  If PROMPT (the prefix), prompt for a cod Line 1567  If PROMPT (the prefix), prompt for a cod
1567    "Remove encoded-word encoding from headers."    "Remove encoded-word encoding from headers."
1568    (let ((inhibit-point-motion-hooks t)    (let ((inhibit-point-motion-hooks t)
1569          (mail-parse-charset gnus-newsgroup-charset)          (mail-parse-charset gnus-newsgroup-charset)
1570          (mail-parse-ignored-charsets          (mail-parse-ignored-charsets
1571           (save-excursion (condition-case nil           (save-excursion (condition-case nil
1572                               (set-buffer gnus-summary-buffer)                               (set-buffer gnus-summary-buffer)
1573                             (error))                             (error))
# Line 1589  or not." Line 1589  or not."
1589              (setq type              (setq type
1590                    (gnus-fetch-field "content-transfer-encoding"))                    (gnus-fetch-field "content-transfer-encoding"))
1591              (let* ((ct (gnus-fetch-field "content-type"))              (let* ((ct (gnus-fetch-field "content-type"))
1592                     (ctl (and ct                     (ctl (and ct
1593                               (ignore-errors                               (ignore-errors
1594                                 (mail-header-parse-content-type ct)))))                                 (mail-header-parse-content-type ct)))))
1595                (setq charset (and ctl                (setq charset (and ctl
1596                                   (mail-content-type-get ctl 'charset)))                                   (mail-content-type-get ctl 'charset)))
1597                (if (stringp charset)                (if (stringp charset)
1598                    (setq charset (intern (downcase charset)))))))                    (setq charset (intern (downcase charset)))))))
1599        (unless charset        (unless charset
1600          (setq charset gnus-newsgroup-charset))          (setq charset gnus-newsgroup-charset))
1601        (when (or force        (when (or force
1602                  (and type (let ((case-fold-search t))                  (and type (let ((case-fold-search t))
# Line 1616  If FORCE, decode the article whether it Line 1616  If FORCE, decode the article whether it
1616              (setq type              (setq type
1617                    (gnus-fetch-field "content-transfer-encoding"))                    (gnus-fetch-field "content-transfer-encoding"))
1618              (let* ((ct (gnus-fetch-field "content-type"))              (let* ((ct (gnus-fetch-field "content-type"))
1619                     (ctl (and ct                     (ctl (and ct
1620                               (ignore-errors                               (ignore-errors
1621                                 (mail-header-parse-content-type ct)))))                                 (mail-header-parse-content-type ct)))))
1622                (setq charset (and ctl                (setq charset (and ctl
1623                                   (mail-content-type-get ctl 'charset)))                                   (mail-content-type-get ctl 'charset)))
1624                (if (stringp charset)                (if (stringp charset)
1625                    (setq charset (intern (downcase charset)))))))                    (setq charset (intern (downcase charset)))))))
1626        (unless charset        (unless charset
1627          (setq charset gnus-newsgroup-charset))          (setq charset gnus-newsgroup-charset))
1628        (when (or force        (when (or force
1629                  (and type (let ((case-fold-search t))                  (and type (let ((case-fold-search t))
# Line 1655  If FORCE, decode the article whether it Line 1655  If FORCE, decode the article whether it
1655        (if (gnus-buffer-live-p gnus-original-article-buffer)        (if (gnus-buffer-live-p gnus-original-article-buffer)
1656            (with-current-buffer gnus-original-article-buffer            (with-current-buffer gnus-original-article-buffer
1657              (let* ((ct (gnus-fetch-field "content-type"))              (let* ((ct (gnus-fetch-field "content-type"))
1658                     (ctl (and ct                     (ctl (and ct
1659                               (ignore-errors                               (ignore-errors
1660                                 (mail-header-parse-content-type ct)))))                                 (mail-header-parse-content-type ct)))))
1661                (setq charset (and ctl                (setq charset (and ctl
1662                                   (mail-content-type-get ctl 'charset)))                                   (mail-content-type-get ctl 'charset)))
1663                (if (stringp charset)                (if (stringp charset)
1664                    (setq charset (intern (downcase charset)))))))                    (setq charset (intern (downcase charset)))))))
1665        (unless charset        (unless charset
1666          (setq charset gnus-newsgroup-charset))          (setq charset gnus-newsgroup-charset))
1667        (article-goto-body)        (article-goto-body)
1668        (save-window-excursion        (save-window-excursion
# Line 1690  The `gnus-list-identifiers' variable spe Line 1690  The `gnus-list-identifiers' variable spe
1690            (when regexp            (when regexp
1691              (goto-char (point-min))              (goto-char (point-min))
1692              (when (re-search-forward              (when (re-search-forward
1693                     (concat "^Subject: +\\(\\(\\(Re: +\\)?\\(" regexp                     (concat "^Subject: +\\(\\(\\(Re: +\\)?\\(" regexp
1694                             " *\\)\\)+\\(Re: +\\)?\\)")                             " *\\)\\)+\\(Re: +\\)?\\)")
1695                     nil t)                     nil t)
1696                (let ((s (or (match-string 3) (match-string 5))))                (let ((s (or (match-string 3) (match-string 5))))
# Line 2003  means show, 0 means toggle." Line 2003  means show, 0 means toggle."
2003  Originally it is hide instead of DUMMY."  Originally it is hide instead of DUMMY."
2004    (let ((buffer-read-only nil)    (let ((buffer-read-only nil)
2005          (inhibit-point-motion-hooks t))          (inhibit-point-motion-hooks t))
2006      (gnus-remove-text-properties-when      (gnus-remove-text-properties-when
2007       'article-type type       'article-type type
2008       (point-min) (point-max)       (point-min) (point-max)
2009       (cons 'article-type (cons type       (cons 'article-type (cons type
2010                                 gnus-hidden-properties)))))                                 gnus-hidden-properties)))))
2011    
# Line 2093  should replace the \"Date:\" one, or sho Line 2093  should replace the \"Date:\" one, or sho
2093       ((eq type 'local)       ((eq type 'local)
2094        (let ((tz (car (current-time-zone time))))        (let ((tz (car (current-time-zone time))))
2095          (format "Date: %s %s%02d%02d" (current-time-string time)          (format "Date: %s %s%02d%02d" (current-time-string time)
2096                  (if (> tz 0) "+" "-") (/ (abs tz) 3600)                  (if (> tz 0) "+" "-") (/ (abs tz) 3600)
2097                  (/ (% (abs tz) 3600) 60))))                  (/ (% (abs tz) 3600) 60))))
2098       ;; Convert to Universal Time.       ;; Convert to Universal Time.
2099       ((eq type 'ut)       ((eq type 'ut)
# Line 2126  should replace the \"Date:\" one, or sho Line 2126  should replace the \"Date:\" one, or sho
2126           "Date: "           "Date: "
2127           (format-time-string "%Y%m%dT%H%M%S" time)           (format-time-string "%Y%m%dT%H%M%S" time)
2128           (format "%s%02d%02d"           (format "%s%02d%02d"
2129                   (if (> tz 0) "+" "-") (/ (abs tz) 3600)                   (if (> tz 0) "+" "-") (/ (abs tz) 3600)
2130                   (/ (% (abs tz) 3600) 60)))))                   (/ (% (abs tz) 3600) 60)))))
2131       ;; Do an X-Sent lapsed format.       ;; Do an X-Sent lapsed format.
2132       ((eq type 'lapsed)       ((eq type 'lapsed)
# Line 2246  This format is defined by the `gnus-arti Line 2246  This format is defined by the `gnus-arti
2246    (interactive (gnus-article-hidden-arg))    (interactive (gnus-article-hidden-arg))
2247    (unless (gnus-article-check-hidden-text 'emphasis arg)    (unless (gnus-article-check-hidden-text 'emphasis arg)
2248      (save-excursion      (save-excursion
2249        (let ((alist (or        (let ((alist (or
2250                      (condition-case nil                      (condition-case nil
2251                          (with-current-buffer gnus-summary-buffer                          (with-current-buffer gnus-summary-buffer
2252                            gnus-article-emphasis-alist)                            gnus-article-emphasis-alist)
2253                        (error))                        (error))
2254                      gnus-emphasis-alist))                      gnus-emphasis-alist))
2255              (buffer-read-only nil)              (buffer-read-only nil)
# Line 2281  This format is defined by the `gnus-arti Line 2281  This format is defined by the `gnus-arti
2281      (let ((name (and gnus-newsgroup-name      (let ((name (and gnus-newsgroup-name
2282                       (gnus-group-real-name gnus-newsgroup-name))))                       (gnus-group-real-name gnus-newsgroup-name))))
2283        (make-local-variable 'gnus-article-emphasis-alist)        (make-local-variable 'gnus-article-emphasis-alist)
2284        (setq gnus-article-emphasis-alist        (setq gnus-article-emphasis-alist
2285              (nconc              (nconc
2286               (let ((alist gnus-group-highlight-words-alist) elem highlight)               (let ((alist gnus-group-highlight-words-alist) elem highlight)
2287                 (while (setq elem (pop alist))                 (while (setq elem (pop alist))
2288                   (when (and name (string-match (car elem) name))                   (when (and name (string-match (car elem) name))
# Line 2291  This format is defined by the `gnus-arti Line 2291  This format is defined by the `gnus-arti
2291                 highlight)                 highlight)
2292               (copy-sequence highlight-words)               (copy-sequence highlight-words)
2293               (if gnus-newsgroup-name               (if gnus-newsgroup-name
2294                   (copy-sequence (gnus-group-find-parameter                   (copy-sequence (gnus-group-find-parameter
2295                                   gnus-newsgroup-name 'highlight-words t)))                                   gnus-newsgroup-name 'highlight-words t)))
2296               gnus-emphasis-alist)))))               gnus-emphasis-alist)))))
2297    
# Line 2336  This format is defined by the `gnus-arti Line 2336  This format is defined by the `gnus-arti
2336            (funcall function group headers (symbol-value variable)))            (funcall function group headers (symbol-value variable)))
2337          result)          result)
2338      (setq result      (setq result
2339            (expand-file-name            (expand-file-name
2340             (cond             (cond
2341              ((eq filename 'default)              ((eq filename 'default)
2342               default-name)               default-name)
# Line 2701  If variable `gnus-use-long-file-name' is Line 2701  If variable `gnus-use-long-file-name' is
2701      ;; Note "Commands" menu is defined in gnus-sum.el for consistency      ;; Note "Commands" menu is defined in gnus-sum.el for consistency
2702    
2703      (when (boundp 'gnus-summary-post-menu)      (when (boundp 'gnus-summary-post-menu)
2704        (cond        (cond
2705         ((not (keymapp gnus-summary-post-menu))         ((not (keymapp gnus-summary-post-menu))
2706          (setq gnus-article-post-menu gnus-summary-post-menu))          (setq gnus-article-post-menu gnus-summary-post-menu))
2707         ((not gnus-article-post-menu)         ((not gnus-article-post-menu)
# Line 2787  commands: Line 2787  commands:
2787              (mm-destroy-parts gnus-article-mime-handles)              (mm-destroy-parts gnus-article-mime-handles)
2788              (setq gnus-article-mime-handles nil))              (setq gnus-article-mime-handles nil))
2789            ;; Set it to nil in article-buffer!            ;; Set it to nil in article-buffer!
2790            (setq gnus-article-mime-handle-alist nil)            (setq gnus-article-mime-handle-alist nil)
2791            (buffer-disable-undo)            (buffer-disable-undo)
2792            (setq buffer-read-only t)            (setq buffer-read-only t)
2793            (unless (eq major-mode 'gnus-article-mode)            (unless (eq major-mode 'gnus-article-mode)
# Line 3011  If ALL-HEADERS is non-nil, no headers ar Line 3011  If ALL-HEADERS is non-nil, no headers ar
3011      (set-buffer gnus-article-buffer)      (set-buffer gnus-article-buffer)
3012      (let ((handles (or handles gnus-article-mime-handles))      (let ((handles (or handles gnus-article-mime-handles))
3013            (mail-parse-charset gnus-newsgroup-charset)            (mail-parse-charset gnus-newsgroup-charset)
3014            (mail-parse-ignored-charsets            (mail-parse-ignored-charsets
3015             (save-excursion (set-buffer gnus-summary-buffer)             (save-excursion (set-buffer gnus-summary-buffer)
3016                             gnus-newsgroup-ignored-charsets)))                             gnus-newsgroup-ignored-charsets)))
3017        (if (stringp (car handles))        (if (stringp (car handles))
# Line 3109  If ALL-HEADERS is non-nil, no headers ar Line 3109  If ALL-HEADERS is non-nil, no headers ar
3109                            gnus-newsgroup-charset)))                            gnus-newsgroup-charset)))
3110         ((numberp arg)         ((numberp arg)
3111          (setq charset          (setq charset
3112                (or (cdr (assq arg                (or (cdr (assq arg
3113                               gnus-summary-show-article-charset-alist))                               gnus-summary-show-article-charset-alist))
3114                    (read-coding-system "Charset: ")))))                    (read-coding-system "Charset: ")))))
3115        (forward-line 2)        (forward-line 2)
3116        (mm-insert-inline handle        (mm-insert-inline handle
3117                          (if (and charset                          (if (and charset
3118                                   (setq charset (mm-charset-to-coding-system                                   (setq charset (mm-charset-to-coding-system
3119                                                  charset))                                                  charset))
3120                                   (not (eq charset 'ascii)))                                   (not (eq charset 'ascii)))
3121                              (mm-decode-coding-string contents charset)                              (mm-decode-coding-string contents charset)
# Line 3130  If ALL-HEADERS is non-nil, no headers ar Line 3130  If ALL-HEADERS is non-nil, no headers ar
3130           (mm-user-display-methods nil)           (mm-user-display-methods nil)
3131           (mm-inlined-types nil)           (mm-inlined-types nil)
3132           (mail-parse-charset gnus-newsgroup-charset)           (mail-parse-charset gnus-newsgroup-charset)
3133           (mail-parse-ignored-charsets           (mail-parse-ignored-charsets
3134            (save-excursion (set-buffer gnus-summary-buffer)            (save-excursion (set-buffer gnus-summary-buffer)
3135                            gnus-newsgroup-ignored-charsets)))                            gnus-newsgroup-ignored-charsets)))
3136      (if (mm-handle-undisplayer handle)      (if (mm-handle-undisplayer handle)
# Line 3146  In no internal viewer is available, use Line 3146  In no internal viewer is available, use
3146           (mm-inlined-types '(".*"))           (mm-inlined-types '(".*"))
3147           (mm-inline-large-images t)           (mm-inline-large-images t)
3148           (mail-parse-charset gnus-newsgroup-charset)           (mail-parse-charset gnus-newsgroup-charset)
3149           (mail-parse-ignored-charsets           (mail-parse-ignored-charsets
3150            (save-excursion (set-buffer gnus-summary-buffer)            (save-excursion (set-buffer gnus-summary-buffer)
3151                            gnus-newsgroup-ignored-charsets)))                            gnus-newsgroup-ignored-charsets)))
3152      (if (mm-handle-undisplayer handle)      (if (mm-handle-undisplayer handle)
# Line 3206  In no internal viewer is available, use Line 3206  In no internal viewer is available, use
3206    (if condition    (if condition
3207        (let ((alist gnus-article-mime-handle-alist) ihandle n)        (let ((alist gnus-article-mime-handle-alist) ihandle n)
3208          (while (setq ihandle (pop alist))          (while (setq ihandle (pop alist))
3209            (if (and (cond            (if (and (cond
3210                      ((functionp condition)                      ((functionp condition)
3211                       (funcall condition (cdr ihandle)))                       (funcall condition (cdr ihandle)))
3212                      ((eq condition 'undisplayed)                      ((eq condition 'undisplayed)
3213                       (not (or (mm-handle-undisplayer (cdr ihandle))                       (not (or (mm-handle-undisplayer (cdr ihandle))
3214                                (equal (mm-handle-media-type (cdr ihandle))                                (equal (mm-handle-media-type (cdr ihandle))
3215                                       "multipart/alternative"))))                                       "multipart/alternative"))))
# Line 3227  In no internal viewer is available, use Line 3227  In no internal viewer is available, use
3227    (interactive "P")    (interactive "P")
3228    (save-current-buffer    (save-current-buffer
3229      (set-buffer gnus-article-buffer)      (set-buffer gnus-article-buffer)
3230      (or (numberp n) (setq n (gnus-article-mime-match-handle-first      (or (numberp n) (setq n (gnus-article-mime-match-handle-first
3231                               gnus-article-mime-match-handle-function)))                               gnus-article-mime-match-handle-function)))
3232      (when (> n (length gnus-article-mime-handle-alist))      (when (> n (length gnus-article-mime-handle-alist))
3233        (error "No such part"))        (error "No such part"))
# Line 3252  In no internal viewer is available, use Line 3252  In no internal viewer is available, use
3252      (prog1      (prog1
3253          (let ((window (selected-window))          (let ((window (selected-window))
3254                (mail-parse-charset gnus-newsgroup-charset)                (mail-parse-charset gnus-newsgroup-charset)
3255                (mail-parse-ignored-charsets                (mail-parse-ignored-charsets
3256                 (save-excursion (set-buffer gnus-summary-buffer)                 (save-excursion (set-buffer gnus-summary-buffer)
3257                                 gnus-newsgroup-ignored-charsets)))                                 gnus-newsgroup-ignored-charsets)))
3258            (save-excursion            (save-excursion
# Line 3483  In no internal viewer is available, use Line 3483  In no internal viewer is available, use
3483                (forward-line -2)                (forward-line -2)
3484                (setq beg (point)))                (setq beg (point)))
3485              (let ((mail-parse-charset gnus-newsgroup-charset)              (let ((mail-parse-charset gnus-newsgroup-charset)
3486                    (mail-parse-ignored-charsets                    (mail-parse-ignored-charsets
3487                     (save-excursion (condition-case ()                     (save-excursion (condition-case ()
3488                                         (set-buffer gnus-summary-buffer)                                         (set-buffer gnus-summary-buffer)
3489                                       (error))                                       (error))
# Line 3502  In no internal viewer is available, use Line 3502  In no internal viewer is available, use
3502              (save-restriction              (save-restriction
3503                (narrow-to-region beg (point))                (narrow-to-region beg (point))
3504                (gnus-treat-article                (gnus-treat-article
3505                 nil id                 nil id
3506                 (gnus-article-mime-total-parts)                 (gnus-article-mime-total-parts)
3507                 (mm-handle-media-type handle)))))))))                 (mm-handle-media-type handle)))))))))
3508    
# Line 3597  In no internal viewer is available, use Line 3597  In no internal viewer is available, use
3597            (if (stringp (car preferred))            (if (stringp (car preferred))
3598                (gnus-display-mime preferred)                (gnus-display-mime preferred)
3599              (let ((mail-parse-charset gnus-newsgroup-charset)              (let ((mail-parse-charset gnus-newsgroup-charset)
3600                    (mail-parse-ignored-charsets                    (mail-parse-ignored-charsets
3601                     (save-excursion (set-buffer gnus-summary-buffer)                     (save-excursion (set-buffer gnus-summary-buffer)
3602                                     gnus-newsgroup-ignored-charsets)))                                     gnus-newsgroup-ignored-charsets)))
3603                (mm-display-part preferred)                (mm-display-part preferred)
# Line 3835  Argument LINES specifies lines to be scr Line 3835  Argument LINES specifies lines to be scr
3835          (setq keys (if (featurep 'xemacs)          (setq keys (if (featurep 'xemacs)
3836                         (events-to-keys (read-key-sequence nil))                         (events-to-keys (read-key-sequence nil))
3837                       (read-key-sequence nil)))))                       (read-key-sequence nil)))))
3838                        
3839      (message "")      (message "")
3840    
3841      (if (or (member keys nosaves)      (if (or (member keys nosaves)
# Line 4041  If given a prefix, show the hidden text Line 4041  If given a prefix, show the hidden text
4041             ((or (stringp article)             ((or (stringp article)
4042                  (numberp article))                  (numberp article))
4043              (let ((gnus-override-method gnus-override-method)              (let ((gnus-override-method gnus-override-method)
4044                    (methods (and (stringp article)                    (methods (and (stringp article)
4045                                  gnus-refer-article-method))                                  gnus-refer-article-method))
4046                    result                    result
4047                    (buffer-read-only nil))                    (buffer-read-only nil))
# Line 4063  If given a prefix, show the hidden text Line 4063  If given a prefix, show the hidden text
4063                    (gnus-check-group-server))                    (gnus-check-group-server))
4064                  (when (gnus-request-article article group (current-buffer))                  (when (gnus-request-article article group (current-buffer))
4065                    (when (numberp article)                    (when (numberp article)
4066                      (gnus-async-prefetch-next group article                      (gnus-async-prefetch-next group article
4067                                                gnus-summary-buffer)                                                gnus-summary-buffer)
4068                      (when gnus-keep-backlog                      (when gnus-keep-backlog
4069                        (gnus-backlog-enter-article                        (gnus-backlog-enter-article
# Line 4266  groups." Line 4266  groups."
4266    
4267  ;;; Internal Variables:  ;;; Internal Variables:
4268    
4269  (defcustom gnus-button-url-regexp  (defcustom gnus-button-url-regexp
4270    (if (string-match "[[:digit:]]" "1") ;; support POSIX?    (if (string-match "[[:digit:]]" "1") ;; support POSIX?
4271        "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,[:word:]]+[-a-zA-Z0-9_=#$@~`%&*+|\\/[:word:]]\\)"        "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,[:word:]]+[-a-zA-Z0-9_=#$@~`%&*+|\\/[:word:]]\\)"
4272      "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)")      "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)")

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26