File: message-get-part.at

package info (click to toggle)
mailutils 1%3A3.20-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 38,932 kB
  • sloc: ansic: 187,772; sh: 111,430; yacc: 7,463; cpp: 3,834; makefile: 3,166; lex: 1,972; python: 1,617; exp: 1,563; awk: 152; lisp: 132; sed: 31
file content (15 lines) | stat: -rw-r--r-- 797 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# This file is part of GNU Mailutils                    -*- Autotest -*-
# Copyright (C) 2018-2025 Free Software Foundation, Inc.
# License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
# This is free software: you are free to change and redistribute it.
# There is NO WARRANTY, to the extent permitted by law.

AT_SETUP([mu-message-get-part])
AT_KEYWORDS([message])
WITH_MAILBOX([spool/mime.msg],
 [MU_GUILE_CHECK([(let ((msg (mu-message-get-part (file->message "mbox") 1)))
 (message-format #t msg)
 (display (mu-message-get-header-fields msg)))],
  0,
  [#<message "X@Y" "Dow Mon Day HH:MM" 14 489>((Content-Type . text/plain; name="msg.21"; charset="us-ascii") (Content-ID . <5122.1026510654.2@example.net>) (Content-Description . Father William Part I))])])
AT_CLEANUP