;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
;; (autoload 'mime-parse-external "mime-parse")
(autoload 'mime-entity-content "mime")
-(eval-and-compile
- (luna-define-class mime-entity ()
- (location
- content-type children parent
- node-id
- content-disposition encoding
- ;; for other fields
- original-header parsed-header))
-
- (luna-define-internal-accessors 'mime-entity)
- )
+(luna-define-class mime-entity ()
+ (location
+ content-type children parent
+ node-id
+ content-disposition encoding
+ ;; for other fields
+ original-header parsed-header))
(defalias 'mime-entity-representation-type-internal 'luna-class-name)
(defalias 'mime-entity-set-representation-type-internal 'luna-set-class-name)
+(luna-define-internal-accessors 'mime-entity)
+
(luna-define-method mime-entity-fetch-field ((entity mime-entity)
field-name)
(or (symbolp field-name)
(cdr (assq field-name
(mime-entity-original-header-internal entity))))
+;; unlimited patch by simm-emacs@fan.gr.jp
+;; Tue, 01 Feb 2000 13:32:14 +0900
(luna-define-method mime-insert-text-content ((entity mime-entity))
(insert
- (decode-mime-charset-string (mime-entity-content entity)
- (or (mime-content-type-parameter
- (mime-entity-content-type entity)
- "charset")
- default-mime-charset)
- 'CRLF)
- ))
+ (decode-mime-charset-string-unlimited
+ (mime-entity-content entity)
+ (or (mime-content-type-parameter
+ (mime-entity-content-type entity)
+ "charset")
+ default-mime-charset-unlimited
+ default-mime-charset)
+ 'CRLF)))
;;; @ for mm-backend