---
name: "Debbugs::MIME"
section: "3pm"
platform: "linux"
package: "libdebbugs-perl"
version: "2.6.4"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Debbugs::MIME"
---

# Debbugs::MIME(3pm)

## NAME

Debbugs::MIME -- Mime handling routines for debbugs

## SYNOPSIS

```
 use Debbugs::MIME qw(parse decode_rfc1522);
```

## DESCRIPTION

## BUGS

None known.

### create\_mime\_message

```
     create_mime_message([To=>'don@debian.org'],$body,[$attach1, $attach2],$include_date);
```

Creates a MIME encoded message with headers given by the first argument, and a message given by the second.

Optional attachments can be specified in the third arrayref argument.

Whether to include the date in the header is the final argument; it defaults to true, setting the Date header if one is not already present.

Headers are passed directly to MIME::Entity::build, the message is the first attachment.

Each of the elements of the attachment arrayref is attached as an rfc822 message if it is a scalar or an arrayref; otherwise if it is a hashref, the contents are passed as an argument to MIME::Entity::attach

### decode\_rfc1522

```
    decode_rfc1522('=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= <don@donarmstrong.com>')
```

Turn RFC-1522 names into the UTF-8 equivalent.

### encode\_rfc1522

```
     encode_rfc1522('Dön Armströng <don@donarmstrong.com>')
```

Encodes headers according to the RFC1522 standard by calling MIME::Words::encode\_mimeword on distinct words as appropriate.

###

```
    $header = handle_escaped_commas('','From: ')
```

Handle commas in addresses which have been RFC1522 escaped and now need to be quoted to avoid parsing as a record separator.