← Back to branch summary

~ubuntu-branches/ubuntu/edgy/semi/edgy

« back to all changes in this revision

Viewing changes to mime-view.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2005-06-04 14:48:23 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050604144823-8uiwt06pxg3yr8nf
Tags: 1.14.6+0.20050510-1
* sponsored by OHASHI Akira <bg66@debian.org>
* New upstream release. (CVS semi-1_14 branch on 2005-05-10)
* debian/emacsen-install.in: Fix that mime-w3m is not byte-compiled if
  w3m-el is installed first and then flim and semi.
* debian/env.el: Prefer iso-2022-jp instead of euc-jp. 
* debian/emacsen-install.in: Ready for emacsen flavors sxemacs*.
* debian/watch: New file.
* debian/control: Revise description.
* debian/copyright: Updated.

Show diffs side-by-side

added added

removed removed

Lines of Context:
mime-view.el
1478
1478
  (let (entity
1479
1479
        p-beg p-end
1480
1480
        entity-node-id len)
1481
 
    (while (null (setq entity
1482
 
                       (get-text-property (point) 'mime-view-entity)))
 
1481
    (while (and
 
1482
            (null (setq entity
 
1483
                        (get-text-property (point) 'mime-view-entity)))
 
1484
            (> (point) (point-min)))
1483
1485
      (backward-char))
1484
1486
    (setq p-beg (previous-single-property-change (point) 'mime-view-entity))
1485
 
    (setq entity-node-id (mime-entity-node-id entity))
 
1487
    (setq entity-node-id (and entity (mime-entity-node-id entity)))
1486
1488
    (setq len (length entity-node-id))
1487
1489
    (cond ((null p-beg)
1488
1490
           (setq p-beg
1558
1560
It calls following-method selected from variable
1559
1561
`mime-preview-following-method-alist'."
1560
1562
  (interactive)
1561
 
  (let ((entity (mime-preview-find-boundary-info t))
1562
 
        p-beg p-end
1563
 
        pb-beg)
1564
 
    (setq p-beg (aref entity 0)
1565
 
          p-end (aref entity 1)
1566
 
          entity (aref entity 2))
1567
 
    (if (get-text-property p-beg 'mime-view-entity-body)
 
1563
  (let* ((boundary-info (mime-preview-find-boundary-info t))
 
1564
         (p-beg (aref boundary-info 0))
 
1565
         (p-end (aref boundary-info 1))
 
1566
         (entity (aref boundary-info 2))
 
1567
         pb-beg)
 
1568
    (if (or (get-text-property p-beg 'mime-view-entity-body)
 
1569
            (null entity))
1568
1570
        (setq pb-beg p-beg)
1569
1571
      (setq pb-beg
1570
1572
            (next-single-property-change
1572
1574
             (or (next-single-property-change p-beg 'mime-view-entity)
1573
1575
                 p-end))))
1574
1576
    (let* ((mode (mime-preview-original-major-mode 'recursive))
1575
 
           (entity-node-id (mime-entity-node-id entity))
 
1577
           (entity-node-id (and entity (mime-entity-node-id entity)))
1576
1578
           (new-name
1577
1579
            (format "%s-%s" (buffer-name) (reverse entity-node-id)))
1578
1580
           new-buf
1585
1587
        (insert-buffer-substring the-buf pb-beg p-end)
1586
1588
        (goto-char (point-min))
1587
1589
        (let ((current-entity
1588
 
               (if (and (eq (mime-entity-media-type entity) 'message)
 
1590
               (if (and entity
 
1591
                        (eq (mime-entity-media-type entity) 'message)
1589
1592
                        (eq (mime-entity-media-subtype entity) 'rfc822))
1590
1593
                   (car (mime-entity-children entity))
1591
1594
                 entity)))
1816
1819
          (display)
1817
1820
          (t
1818
1821
           (setq display
1819
 
                 (eq (cdr (or (assq sym situation)
1820
 
                              (assq type situation)))
1821
 
                     'invisible))))
 
1822
                 (memq (cdr (or (assq sym situation)
 
1823
                                (assq type situation)))
 
1824
                       '(nil invisible)))))
1822
1825
    (setq situation (put-alist sym (if display
1823
1826
                                       'visible
1824
1827
                                     'invisible)